

IRY FARMING 

GOMPUtER 
ORIENTEERING 



GALAXrA 

A PPtE TRIVIA 



■ ■ r- ■ * ' ■ . ■ 

W-US: Mith Dfecalhlon^^Xi^^ Missipp, 

Kudos & Klunkers, Re^^iJ^BJ^^nd niii£!||i, much mor 





Hot pursuit 
through space 
and the 
vortices 
of time! 





te PRESENTS. 



Sini<B toed 

The fallen Time Lord, who presumptuously calls himself The Master, is at large. 

The elders of Waldrom have supplied you with the hyperspace-worthy vessel 
TARDIS, and commissioned you to eliminate the evil "Master". Your resources in- 
clude clones who will fight for you, the formidable CRASER weapons of the TARDIS, 
and magic weapons such as Fusion Grenades and Borelian Matrix Crystals. 

Travelling through hyperspace in search of the evil one, you will encounter Time 
Eaters, Neutron Storms, and other alien creatures and phenomena. Entering real 
space to search planets, you will encounter still other dangers. You will enter native 
settlements to buy food and supplies — or to fight for survival. 

And once you find The Master can you destroy him? 
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Based on Dr. Who of PBS fame. 
Apple Integer Basic, 
Disk, 48K . . . $29.95 

#47-191001D 



EXPAND YOUR 

COMPUTING 

CAPABILITIES! 




THE CHATTERBOX 

All of the features of the Comm-80 Interface 
plus a built-in acoustic modem for 0-300 baud operation. 
Includes Full/Half Duplex terminal software. Unit is 
covered by a 90-day guarantee from MICROMINT. 
#4-81 (5 lbs.) $239.00 



ST80* SMART TERMINAL PACKAGE 



All four programs include the ability to use an unmodified TRS-80TM keyboard to produce RUB, ESC, and other control 
characters for time sharing, software control of the RS-232C board, repeat key, bell, software support for the three most 
common upper/lower case hardware conversion, and line printer output. 

ST80* UC 

Preset parity, word length, and baud rate (regardless of switch settings on the RS-232C board) for THE SOURCE, 
MICRONET, and FORUM 80, automatic testing of the RS-232C board, and even spooling of prepared messages on tape 
directly into FORUM 80 using a, BASIC program supplied as a line listing. 4K Mod I/Mod III cassette #26-ST8S . . $24.95 

ST80* 

Reprogram your RS-232-C board from the keyboard, and run at different baud rates. Note: does not have auto testing of 
the RS-232-C or tape spooling. 4K Level II Cassette #26-ST80 $49.95 

ST80* D 

Connection time clock, option of user-created translation tables for keyboard, gathering and pre-fprmatting data to be sent 
directly from disk to host computer, spooling of received files to disk or printer, editing of received files, and auto logon. Use 
it with VTOS 3.1, and get device-driven I/O, job logging, and chaining. 32K disk program. . . . #26-st8D $79.95 

ST80* HI 

Represents the "state of the art" in communications processors and was designed for complex conmiunications processing. 
Included in this package is a set of programs which allows your Model I or Model III to talk to a time-sharing computer, 
transfer files to and from the central computer, and customize your ST80-III program to suit your specific time-sharing enviro- 
ment. Altogether you receive seven programs with this system. 32K disk program 126-5183 $150.00 



THE SOURCE 



Would you like to send mail across the country overnight, write one letter and send it to a hundred people, read the news 
right off the wire service, program in COBOL, FORTRAN, or RPG II, advertise on a nationwide electronic bulletin board, 
join a real time national computer club, leave messages when you are out of town, make travel arrangements through your 
computer, use a discount shopping service, reach a whole library of specialized information on business, real estate, science 
and engineering, and personal applications, find out what the weather is around the country, and use dozens of high-powered 
applications programs? 

Connect your microcomputer to THE SOURCE! THE SOURCE is a bank of mainframe computers in McLean, Virginia 
connected by TYMNET and TELEMET data transmission services to hundreds of cities around the country. Most urban areas 
can access THE SOURCE by local phone call. Costs: 

One time subscription fee (includes manuals) SIOO.OO 

Connect time after midnight (per hour) $2.75 

Connect time between 6 p.m. and midnight (per hour) $4.25 

Connect time 8 a.m. to 6 p.m. (per hour) $15.00 
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•ST80 Is a trademark of Lance fvllckius. Inc. TRS-80 Is a trademark of 
Tandy Corp. 
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TSEHARDSIDE HAS IT ALL 
IN ONE! 

How many times have you wished that there was a single source for ^ 
your personal computer needs? Well look no further, TSE- 
HARDSIDE, located in pleasant New Hampshire, has virtually every 
conceivable item for your micro. Whether you're shopping for your 
Apple, Pet, TRS-80™or Atari, TSE-HARDSIDE has it all. We stock 
hardware, software, books, magazines and specialty items for all of 
the popular machines. So the next time you're out shopping for your 
system don't be surprised, be satisfied. Remember the name TSE- 
HARDSIDE as your choice for quality, service and reliability. 
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by Dave Albert 

By definition, a simulation is an at- 
tempt to imitate life, or some aspect 
of it. One can trace the roots of 
simulations back to the dawn of 
history, when people practiced sym- 
pathetic magic in the belief that by 
acting out the future one could 
literally shape it. The notion that by 
approximating an activity one 
somehow would be more the master 
of that activity shows up in the 18th 
and 19th century war simulations 
where commanders believed that 
acting out a battle beforehand would 
help to win it in actuality. Any 
simulation has the lure that play- 
acting is somehow analagous to the 
real thing. 

In computing, simulations con- 
stitute a genre of games in which the 
player is placed in someone else's 
shoes and challenged to succeed. 
"Hammurabi" is perhaps the best- 
known microcomputer simulation. 
We have published several simula- 
tions in SoftSide, including "Im- 
hotep", "Micro MilHonaire", and 
"IBC". We enjoy simulations and 
will continue to publish them 
whenever we run across ones that we 
like. This month, however, we are 
publishing a pair of them, each with 
certain features that bear close 
scrutiny. 

The feature program that lends its 
theme to our cover this month is 
"Dairy Farming". It is a nicely- 
executed simulation that allows you 
to try to succeed as, you guessed it, a 
dairy farmer! Success is judged on a 
point basis, calculated on the land 
you own, the size and type of your 
herd, how much milk you sell, etc. 
Sounds glamorous, huh? Well, not 
really... which is what makes it an 
interesting simulation. There's none 
of this fantastic stuff about becoming 
chairman of the board or ruler of a 
city-state, just a simple goal of being 
a good farmer. You must rely on 
shrewd business judgment and the 
ability to know when to choose a cer- 
tain course of action. There is little 
whimsical in this program, and even 
less of the unbelievable. 

Which brings up the point of this 
editorial: Is fantasy necessary to a 
stimulating simulation? In one sense, 
the answer must be yes, for the whole 
point of a simulation is to be involved 
in a make-believe situation, but one 
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must bear in mind the corollary that 
in so doing, one is somehow learning 
to master the subject being 
simulated. Once the point about fan- 
tasy as basis is conceded, then where 
does the line of fantasy versus ap- 
proximated reality need to be drawn? 
In "Dairy Farming" a mundane 
topic is chosen and made demanding, 
and thus exciting. All kidding aside, 
"Dairy Farming" is as tough to win 
at as any simulation I've ever played. 
But it still places the player in com- 
mand of resources that many of us 
only dream about, i.e., enough 
capital to purchase land and a herd of 
cows. 

The other simulation in this issue 
goes well beyond that in attempting 
to approximate objective reality. 
"Orienteering at Jacque's Coulee" is 
about as close as you can come to ac- 
tually going out into the country with 
a compass and a map and finding 
your way around. Michael O'Keefe 
has done an excellent job of first ex- 
plaining the sport of orienteering and 
then emulating it on the S-80. 
Orienteering itself is a sport that re- 
quires virtually no equipment, and is 
thus accessible to all, rather than to 
the well-off. What O'Keefe has done 
is to choose a real spot and then put 
you there via your computer. Your 
goal is to find your way around this 
terrain, in much the same fashion as 
if you were physically there, armed 
with naught but a compass, map, and 
your wits. It would be hard to get any 
closer to the real thing than with his 
program. 

Now it is my contention that what 
O'Keefe has done is infinitely harder 
to do than what his simulation- 
writing predecessors have done... He 
has applied his imagination in a very 
controlled and disciplined fashion to 
produce what is TRULY a simula- 
tion, rather than a flight of fantasy 
masquerading as an approximation 
of reaUty. To, date, this is the ONLY 
such simulation I have encountered. 
Although "Dairy Farming" at least 
attempts to do something similar, it 
still relies on what are impossible cir- 
cumstances for the vast majority. 

The distinction I'm trying to make 
is that "Orienteering" really tries to 
approximate reality by introducing as 
few fantasy postulates as possible, 
while the general rule in simulations 
is to create a reality that is totally 
continued on page 85 
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NATIONAL TRS-80^ 

MICROCOMPUTER SHOW 



New York Statler 

Exposition Hall 

(opposite Pennsylvania Railroad Station 

and Madison Square Garden) 

7th Ave. & 33rd Street 



May 21, 22, 23, 1981 
Thursday Noon to 6 PM 

Friday 11 AM to 6 PM 
Saturday 10 AM to 4 PM 



For the Businessman, Educator, Professional and Hobbyist. 

• Commercial Exhibits and Sales of Microcomputers, 
Software, Books, Magazines, Supplies, 

Parts, Printers, Etc. 

• Free Seminars 

• Famous Name Guest Speakers. 

• User Groups. 

(Mod I, II, III, Color and Pocket Computers). 

• Door Prizes - A TRS-SO" Computer will be given 
away free each day, plus other prizes. 

Avoid standing on line - Send in your registration today! 

Radio Shack and TRS-80 are registered trademarks of Tandy Corporation, which has 
no relationship to Kengore Corporation or The National TRS-80 Microcomputer Show 



REGISTRATION FOR TRS-80® MICROCOMPUTER SHOW 

May 21 , 22, 23, 1 981 New York Statler Hotel 

Name Title 

Company Name 



Address 



City, State, Zip 



Please send 



registrations at $10.00 each. 



Send To; 

Kengore Corporation, Dept. 80 

3001 Route 27 

Franklin Park, N.J. 08823 



(Registration Badge will be sent to you on May 1st. 

Co-sponsor-ed Bv 



^0 



micr'ocomputing 



(Be sure to enclose 
check or money order ) 
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Dear SoftSide, 
Attn: Lance Micklus 

We haved tried to gather enough "in- 
telligence in our little group of phone- 
order takers to respond to certain 
statements in your most recent column. 

We took your comments personally 
since you have seen us function and know 
that TSE was built on the customer ser- 
vice we provide. We pride ourselves on 
our knowledge here and want all to know 
that we take the time (our own) to learn 
about a product because most program- 
mers don't take the time to answer ques- 
tions for the customers. 

We challenge you Lance, to sit in on a 
day of telephone order taking, to learn 
first-hand exactly what is required to put 
money in your pocket. We'll even pay 
your expenses if you can complete one 
day handling four WATS lines using 
many order blanks while keeping your 
"Apples" from mixing with your "Pets". 

We have had many comments from 
customers complimenting us for the ac- 
curate software information we provide 
versus the lack of support received from a 
well-known computer store chain. 

Taking your theory one step further, 
you could eliminate an answering service 
completely by installing a recorder — at 
the sound of the beep, the customer could 
specify the order and charge card 
number. 

The Softhearted Women from 

TSE (The Software Exchange). 

Milford, NH 

Dear SoftSide, 

I have been following the letters, 
editorials, and articles presented in the 
last few months, not only in SoftSide, but 
in most of the computer magazines to 
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INPUT POLICY 

SoftSide Magazine welcomes your 
comments and thoughts on both the 
magazine and the field of microcom- 
puting. We try to publish as many of 
our readers' letters each issue as we 
can. 

For the sake of clarity and legibili- 
ty, all letters should be typewritten 
and double-spaced. Send your letters 
to: 

SoftSide Publications, 
Input 

6 South St., 
Milford, N.H. 03055 

We reserve the right to edit any letters 
prior to publication. 



which I subscribe. Needless to say I have 
grown weary of this piracy talk.... Please, 
enough is enough!! 

I read Lance Micklus' "My Side of the 
Page" in January, 1981. His side of the 
page, "Getting a Bit Serious — Part 1," 
took three pages explaining marketing to 
me and that he would be happy to sell me 
"the" copy of "STSO-III" for a million. 
Now my point Lance, I don't have a 
million, but I may be able to come up 
with a lesser amount for a good terminal 
program. Why should I buy "ST80-D" or 
ST80-IH"? All I see are full-page multi- 
thousand dollar ads in all magazines, and 
what do they say? 

"ST80-UC" would cost me $24.95. 
OK, I already have Radio Shack's Com- 
munication Software and Videotex etc., 
so not knowing any better, I'll pass on 
"ST80-UC". Next comes "ST80" — 
reprograms my RS232 board for $49.95. 
Humm not bad, but why do I need to 
reprogram it? Pass again. Next is "ST80- 
D" for $79.95. Well now this could be 
something, but there are a lot of buzz 
words here: 

User Created Translation Table 

Gathering Pre-formated Data 

Editing of Received Files 

Job Logging 

Device Driven I/O 

Rub 

Bell 

Well I have had my system, less 
modem, for two + years and most of that 
still leaves me in the in the dark. Next I 
see there is "STSO-III" and for $150.00 I 
can have, I quote, "ST80-D" with extra 
utility programs unquote. That's $70.05 
for utility programs. Now even just one 
good utility program could be worth 
$70.05 to me, but remember I have utility 
programs sliding off my diskettes now so 
I would be just a little interested in know 
what these new ones can do. 

Now Lance has used three full pages, 
nine columns, to tell me more about 
marketing than I cared to know. He could 
have said all that mattered to me about 
marketing, in one column, and could 
have used the other eight columns to sell 
me a new terminal program. In that arti- 
cle I could have been informed as to the 
meaning of said buzz words, and extra 
utility programs, and had an in-depth 
simulated contact using all those words 
and utility programs. 

Sorry to pick on Lance, but this to me, 
is having what I am in the market for, but 
not selling it, just saying "Buy this. Look 
at the big bucks I spend on ads. It's good. 
I wrote it." 

We all still love ya Lance. Keep writing 
the good stuff. 

Paul Schmid 
Orrville, OH 
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Dear SoftSide, 

You seem to have missed the main 
point in my letter published in the 2/81 
issue. I fully understand that the pub- 
lished listings are not TYPED in. But they 
still have errors. Yes, the programs are 
sometimes very complex and you may 
have missed some bugs. But that excuse is 
just a copout. It is admittedly very dif- 
ficult for someone very close to a project 
to proofread it. Why not take my sugges- 
tion and let some readers try out pro- 
grams from your "to be published" print- 
out before you publish them. Sure does 
look like a simple thing to do to avoid a 
lot of grief on the part of your 
subscribers. 

Your 2/81 issue illustrates my point 
perfectly. "Mini Golf" for the Atari 
needs to have " 's turn" added to line 
1010. No big deal, but this could have 
been picked up. "Changing Hearts" has a 
flawless listing, but an error in the G$ 
string to be put in line 40. After some 
analysis I found that the string needs a 
"control comma" (graphics "heart") 
added on the end of the string to make the 
program work. I enjoy this sort of "fix- 
ing' 'but all your readers may not be of the 
same mind. 

Richard Kushner 
High Bridge, NJ 

Dear SoftSide, 

I would like to disagree with your 
response to a letter in the February, 1981, 
issue of SoftSide. The letter in question is 
on page 7 pointing out errors in programs 
listed in the magazine. The author 
pointed out an error in the "Doing!" pro- 
gram that appeared in the November, 
1980, issue on pages 82-83. If you wouVd 
have taken the time to carefully check the 
program you would have seen that the 
Atari program is absolutely useless as 
printed! The end of the program after line 
320 is obviously missing. There are many 
references to line 400 (lines 260, 265, 270) 
which is NOT given. Also, line 5 attempts 
to read data from DATA statements that 



are not listed. How about publishing the 
complete program 

Robert W. Baker 
Atco, NJ 

Editor's Reply: See "Bugs, Worms, and 
Other Undesirables" on page 13 for the 
correction to "Boing". 

Dear SoftSide: 

As a charter subscriber, I have received 
a mixture of pleasure and pain from Soft- 
Side. Pleasure, from the interesting ar- 
ticles and useful programs. Pain, from the 
frustrating debugging of several Atari 
programs which won't run! 

Now, I already know your answer to a 
subscriber with a similar complaint. That 
is, that your programs are printed directly 
from the computer on which they are run- 
ning. Well, your logic is overwhelming, 
but repeated proofreading without suc- 
cess has led me to question it. 

Proof of my position arrived in the 
form of Bouncing Barney in "Boing!" 
(November, 1980, page 83). Three hues in 
the Atari version (lines 260, 265, and 270) 
go to a subroutine on line 400, which does 
not exist. Since the page ends with your 
SS logo, presumably the program is com- 
plete. Indeed, it does not carry over to 
another page in that issue. The remark 
preceeding these lines describes the 
subroutine as the sound Barney makes 
when he hits either wall. 

The missing sound subroutine is not the 
only problem. When the program is run, 
there is an immediately an error message 
indicating that it is out of data in line 5. It 
also fails to move the trampoline to the 
right, or erase its image after it's been 
moved. 

Now, I realize that you feel that the 
mistakes are all on this side of the table. 
Perhaps the program is letter perfect, and 
just this one time the end was lost by the 
printer. 

As far as I'm concerned, this is not the 
case. I suggest that you listen carefully to 
the "what happened" letters. And, as a 
regular service, provide a column of up- 
dates on previously published programs. 
Invite your readers to send in corrections 
and fixes, if they can find them. Believe 
me, the bugs are there! 

Martin W. MoUoy. Ph.D 
Palo Alto, CA 

Editor's Reply: Sorry if we gave the im- 
pression that we feel all mistakes come 
from somewhere else. Yes, we do make 
mistakes, "Boing" being a case in point. 
And yes, we welcome any and all correc- 
tions and fixes, which we carefully check 
when they come in. Without reader 
response we wouldn't know where we 
stand, much less where we're headed. 

Dear SoftSide, 

I have just finished reading a letter 
from Richard Kushner on page 7 of the 
February, 1981, issue of SoftSide. My 
feelings after reading this letter are 
twofold: (1) Complete agreement with 



Mr. Kushner's remarks concerning Soft- 
Side's errors in Atari programs; and (2) 
Anger at the dismissal by you of the 
points he raised in his letter. Actually, to 
be more precise, you didn't dismiss his 
remarks, you ignored them. 

Let's take a specific program which 
Mr. Kushner and I have typed in from the 
November, 1980 issue of SoftSide. This is 
the program "Boing!". This program 
does not and cannot work as it appears in 
the magazine! ! ! Line 5 has a READ state- 
ment for which there is no corresponding 
DATA statement. Lines 260, 265, and 270 
have a GOSUB 400 for which there is no 
line 400. The program ends at line 320. 
You may have "dumped directly to a line 
printer" but as Mr. Kushner pointed out 
and you ignored, you did not proof your 
copy to see that you had lost part of the 
program! 

Incidentally, we examined the 
December issue of SoftSide looking for 
corrections to the "Boing!" program and 
found in the Table of Contents "Bugs, 
Worms, and other Undesirables" listed as 
being on page 94, but not only were they 
not on that page but were not to be found 
in that issue, and we have never seen a 
correction to the "Boing!" program. 

I agree with Mr. Kushner's comments 
on "Trench" and "Meteor Storm" since 
neither of these programs worked as 
typed in from your magazine listing. We 
had to debug both programs to get them 
to execute logically and properly. My con- 
clusion is that you either need to get your 
act together or adopt Mr. Kushner's solu- 
tion and let Atari owner's help you insure 
the proper execution of your listings. 

Thomas N. Wheeler 
Charleston, WV 



Dear SoftSide; 

Attn: Mark Pelczarski 

About "I Don't Think We're in Kansas 
Anymore": 

I think you ain't never bin in Kansas. 
At least your writin's ain't from Kansas. 
If you ever growed up in Kansas your 
parents would have learnt you everything 
they knowed and you'd git shoved up the 
crick if you done wrong. So don't claim 
you was ever in Kansas 'cause you ain't 
hep enough to understand Kansas lingo. 

Andy Anderson 
Holton, KS 

Dear SoftSide, 

I received a free copy of your October, 
1980, edition of your magazine. I am very 
impressed at the quality of the programs 
and articles in SoftSide, and I have 
already sent in my subscription form. 
However, is there any way to prevent the 
magazine's covers from getting torn in the 
mail (this always happens with my other 
magazines also)? Also, I would like a 
copy of your author's guide. 

Brian Yamauchi 

Oxford, OH 

continued on next page 
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OUTGOING 
MAIL 



by Dave Albert 

Here we go again. Notice anything 
about the magazine you're holding? 
It should look somewhat different in 
that we've changed the format to 
justified type. The reason for this is 
that we believe it is easier to read this 
way, and also it looks a lot tidier. If 
you have feelings for or against this 
change, do let us know by writing a 
letter. We think it's an improvement, 
but then the ultimate decision lies 
with you, the reader. 

This month I thought I would talk 
a bit about submissions — how we 
receive them and how we handle 
them. SoftSide depends on submis- 
sions from its readers for its content. 
In a sense we are a large software 
club, culling out the best from what 
we receive and then publishing it for 
all to use. We don't have a whole lot 
of control over how the stuff is writ- 
ten or coded. When we see something 
we like, but that we think could be 
done better, we either try to improve 
it if the faults are minor, or we send it 
back to the original author with an 
encouraging letter containing our 
suggestions. 

For the sake of handling the 
amount of material that comes 
through the doors, we do not accept 
submissions in a printed form. They 
must come to us on a cassette or 5 14 
inch floppy diskette, ready to load 
and run. We simply don't have the 
time or the personnel to type in pro- 
grams and then debug, edit, and 
prepare them for printing. When 
programs arrive on a disk or cassette, 
but without documentation and 
variable listings, we curse the authors 
in a dozen different tongues and stick 
pins into wax images of what we 
think they look like. 

What we look for in a submission 
is good programming technique, an 
attractive and fast-moving (within 
the limits of BASIC) program, and 
originality and flair in design. This 
applies to games, utilities, and any 
other type of program we receive. We 
are fond of printing little programs 
that help with chores, bring the cows 
home, wash the dishes, or any other 
of a myriad of useful functions. Of 
course the wider the application, the 
better we like the program. While a 
program that determines rivet place- 
ment on the fuselage of supersonic 
aircraft may be well-written, we feel 
continued on page 10 



continued from previous page 

Dear SoftSide, 

I have read your magazine from the 
beginning of SoftSide: Apple Edition. In 

general, it is excellent. But (there always 
has to be a catch somewhere!) I do have 
two minimal complaints. Number 1: the 
lack of Apple adventures that appear (or 
don't appear,) in your magazine. As I 
said, this is a very minimal complaint, but 
it would be nice if there were a few now 
and then. Number 2: I am afraid to say 
that the quality of the binding on your 
new magazine leaves quite a bit to be 
desired. I find my SoftSide's beloved 
pages falling out and scattering 
themselves around the house (not too 
handy when I want to type in a program 
from a past magazine and one of the 
pages is missing). 

On the whole I find your magazine a 
pleasure to read and look at, and I highly 
recommend it to all my friends, with or 
without a computer. Keep up the good 
work, and happy SoftSiding (a legal 
word??!?)!! 

Matthew Laurence 
Lincoln, MA 

Dear SoftSide, 

I have been following the debate on the 
new vs. the old SoftSide in the "Input" 
columns. I find I must agree with Brian 
Thompson, John Trumbull and Clyde 
Elsasser, at least in part. 

I too, liked the old SoftSide because it 
pertained only to the S-80 and I knew I 
could eventually use every article and pro- 
gram. I have considered not renewing, 
but I must admit, I'm afraid I'll miss 
something good. At least you note in the 
contents page which computer the article 
covers. That is a help. I have a suggestion 
for your other subscribers that may 
soothe some bad feeUngs. 

When my new SoftSide arrives, the first 
thing I do, is to take a "Hi-Liter" pen 
(those pens college students use to mark 
passages in their textbooks) and mark 
each title that pertains to my computer. 
Then I go to that page and write a big 
"S-80" on the pages of the article. I use 
yellow, and you can read through it. Then 
when I sit down to my serious reading, I 
read only those pages with the marks. I 
also mark "Programming Hints", "One 
Liners", and "Bug Reports" that are for 
my computer, too. It takes a little extra 
time at first, but after you get the hang of 
it, you can do it quickly. At least when 
you start reading, you don't read 
something that has nothing to do with 
your system. 

Sherry M. Taylor 
Haines City, FL 

Dear SoftSide, 

I have been working with your 
"Developing Data Base" articles on my 
S-80, and since you mentioned several 
times your interest for reader input I 
thought I would send along the following 
to you. The TRSDOS disk I happened to 
be using when I first used your program 
8 



(up through and including sort) was not 
viTite-protected. As you can imagine, 
although I had the program on drive No. 
1, my data was stored on drive zero. In an 
effort to maintain my "system disk" 
clean I attempted to input at the end of 
the file name ":!" in an attempt to have 
the data written in drive 1. This was un- 
successful since the input query apparent- 
ly perceives the colon as a delimiter. 

Although I am quite unfamiliar with 
disk BASIC, in quickly reviewing my disk 
BASIC manual, I came across the com- 
mand "line input" which does not "see" 
any delimiter except the enter key. By 
changing lines 1000, 1500, and 2030, "in- 
put" commands to "line input" com- 
mands I was able to append a ":1" to my 
file name and force it to be written on 
drive 1. 

After having done all that it became ap- 
parent to me that a much simpler "fix" 
would have been to write-protect my 
system disk. Nevertheless, I pass my ef- 
forts along for whatever value you find in 
them. 

Keep up the articles. I am particularly 
interested in print formatting. I intend to 
apply the data base management program 
to my office in a number of areas, the one 
which now has the highest priority is our 
docketing system. 

For this application I am particularly 
interested in maintaining an audit trail. 
That is, when the operator inputs, 
changes, or deletes records, I would like 
to have a subroutine for printing out the 
data which was input, the data which was 
changed, or the data which was deleted. 

Stanley B. Green 
Washington, DC 

Dear SoftSide, 

Ooops!!!! I was just typing in the Ap- 
ple version of "Miner" from the 
February issue of SoftSide (Whew!!), 
when I came across a most regretful error 
on the part of Mr. Steve Justus. The 
mistake is very understandable and easy 
to correct. In fact, the error is so obvious 
I'm sure you will have many, many letters 
such as this one. In any case I hate to be 
the one to point out errors in any program 
because no one to my knowledge (not a 
very large knowledge) has ever written a 
bug-free program, with the possible ex- 
ception of A.L.F. 

The error is on line 480, in Applesoft 
(or any Apple language) there is no "IF 
-THEN - ELSE" statement. In order to 
correct the mistake I just added the 
following line: 

485 IF Y<> 32 THEN 230 

No big deal. Except that in line 480 
then "ELSE" should be removed. That's 
all, hope I was of some help! 

Randy Reeves 
Cypress, TX 

Dear SoftSide; 

Loved the "Meteor Storm" program 
by Roy Harper, but I thought it would be 
nice to have something slightly more 
meteor-like than + signs. These follow- 
ing changes (for S-80 machines) will give a 
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whole screen of random meteor-like ob- 
jects to fly your spaceship through. Add 
or change the following lines: 

115 R2 = RND(191): 
IFR2<128THEN1I5 

120 PRINT@G, " ";:PRINT 
@RND(62)-t-960,CHR$(r2): 
PRINT@0,PO; 

150 IFPEEK(L) 1280RPEEK 
(L+1) >1280RPEEK(L-l-2) > 128 
THEN200 

190P0 = P0-l-l:GOTO115 

290 FORI=lTO100:PRINT@RND 
(62) + 960,CHR$(R2):PRINT:NEXT 

310 FORI=lTO30:PRINT@RND 
(62) -K 960, CHR$( 147): PRINT: 
NEXT:PRINTTAB(23);"METEOR 
STORM'':PRINTTAB: 
"BY ROY HARPER" 

William C. Clugston 
Lorton, VA 

Dear SoftSide, 

This is to let you know of two bugs in 
"Tanks-A-Lot" (2/81 issue): 

Line 240 — the FOR-NEXT Loop was 
omitted. 

Between PRINT @ I, K;: and PRINT 
@ I, " ";: the following should be in- 
serted: 

For = 1T03: NEXT: 

Also in the text, the indicators, for the 
left commander are in error. They should 
read: 

D = Fire 

S = Forward 

A = Rotate Right 

i = Rotate Left 

My apologies to the author for tamper- 
ing with an otherwise excellent program. 

Feel free to publish this information if 
you think it would be of any benefit to 
your subscribers. 

Your magazine gets a*****rating 
from me. 

It's fantastic. I don't know how you do 
it but keep doing it. 

Raymond Nehilla 
Ambridge, PA 
Dear SoftSide, 

I found your recent program 
"Convoy" (January, 1981) very in- 
teresting and entertaining but in view of 
your policy of requiring a program to run 
in both Level II and Disk BASIC it 
seemed unfair that the Apple version 
allowed multiple convoy play only on the 
disk version unless the program was 
modified. 

It is nice to see multiple translations of 
major programs and would like to see this 
practice continued. 

In the process of modifying the Apple 
translation to run without disk I found a 
few errors and ommissions. 

First was an obvious error which I am 
surprised has not been reported yet. 

6060 IF K > Z * 10000 - 2000 THEN 
2973 should be 3060 

Omitted was the use of the flag "N" as 
in the S-80 version line #1110. 

1150 GOSUB 50010: IF N = 1 THEN 
VTAB 24: PRINT " YOUR DESTINA 
TION IS ARCHANGEL": X = 193: 
GOSUB 50010: GOTO 1240 

continued on page 10 
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BASF FlexyDISK 1 



Ire than four decades of experi- 
ence in magnetic media -BASF 
invented magnetic recording 
tape, the forerunner of today's 
wide range of magnetic media, 
back in 1934, and was the first 
independent manufacturer of 
IBM-compatible floppy disks. 



Tough Tyvek sleeve -no paper 
dust, no static electricity. 



Special self-cleaning jacket and 
liner help eliminate data errors 
and media wear and tear 




BASF BASF FtexyDJsIt 



Center hole diameter punched to 
more accurate standards than 
industry specifications, for top 
performance. 



Bi-axially oriented polyester 
substrate - for uniform and reli- 
able performance year after yean 



Cross-linked oxide coating-for 
low head wear and long trouble- 
free media life. 



Total capability — one of two man- 
ufacturers in the world that 
makes both 8" and 5.25" models, 
has tape and disk experience, and 
manufactures floppy disk drives. 



Double lubrication- lubricants 
both in the formula and on the 
disk surface, to minimize media 
wear due to head friction. 



Packaging to suit your 
requirements- standard flip-top 
box, Kassette 10* storage case, 
or bulk pack. 



100% certification -every single 
disk is tested at thresholds 2-3 
times higher than system require- 
ments, to be 100% error-free. 



For the name of your nearest 
supplier, write BASF Systems, 
Crosby Drive, Bedford, 
MA 01730, or call 617-271-4030. 




BASF 



Floppy Disks Mag Cards Cassettes Computer Tapes Disk Packs Computer Peripherals 
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by Roger W. Robitaille, Sr. for. 



Inventory 'S' is an exciting advance in snnall business 
software for the TRS-SO™. its in-memory system of data 
storage solves the problems of both sequential and random 
access files, while providing extremely fast, random access to 
any record. Other advantages include the ability to use any 
combination of characters for stock number; an exceptionally 
flexible record format (field names are user definable); and 
the ability to store data to tape or disk and upgrade at any 
time. Up to 150 items can be stored per 16K of available 
memory, with stock number, description, cost, vendor, 
reorder, and profit data in each record. Use your present 
stock numbers (a sort function is included), unlike competing 
systems which force you to use a different "record number," 
User-definable screen and printer reports let you see just the 
data you need, when you need it. 

Inventory *S' can be used effectively with a 16K, tape based 
system or a 48K, disk and printer system. 

TAPE VERSION, 16K (min.), LEVEL II $24.95 #26 ivst 
32K DISK VERSION $39.95 #26 ivsd 

WITH INVOICING ON DISK $59.95 #26 ivsi 

75&IHP)RDSID€ LM 

6 South Si .Millord, NH 03055 (603)673-5144 ^^^^ ^^ 

TOLL FREE OUT-OF-STATE 1-600-258-1790 



INPUT continued from page 8 

I am enclosing a method to modify the 
program for continuous play for non-disk 
operation which may not be of interest 
and a list of errors revealed when the pro- 
gram is run without the disk option. The 
errors are leaving subroutines without us- 
ing RETURN and leaving FOR-NEXT 
loops improperly. 

DEL 3180,3200 

DEL 50090,50150 

3230 IF 1$ = "Y" THEN 200 

50160 TS = TS -I- 1: S = S -I- .34: IF 
S > 3 THEN YE = 1942 

50170 P2 = 0: P = 0: T = 0: LI = 0: 
L2 = 0: L3 = 0: L4 = 0: L5 = 0: L6 = 
0: L = 0: RETURN 

50300 FOR W = 1 TO 4: GOSUB 
50070: COLOR = 3: PLOT Z, Y: 
GOSUB 50070: COLOR = 0: PLOTZ, 
Y: NEXT: PA = 1: PR = 0: RETURN 

ERRORS: 

1530 IF Z = G AND Y = H THEN 
GOSUB 50300: X = 20: NEXTX: GOTO 
2400 

1550 IF PA = 1 THEN PA = 0: IF 
INT(RND(1)*2) = OTHENZ = G: Y = 
H: GOSUB 50300: GOTO 2400 

1560 IF (T = 4 OR T = 5) AND INT 
(RND (I)*2) = THEN Z = G: Y = H: 
GOSUB 50300: GOTO 2400 

1650 PA = 1: W = 16: NEXT 

W: POP: GOTO 2000 

2120 POP: GOTO 2392 

2981 IF Y = 38 THEN ZG = 

30: NEXT ZG: GOTO 2983 

3160 NEXT Y: NEXT 

Z: 

Hilding Anderson, Jr. ^TU 
Buchanan, NY W 

Outgoing Mail continued from page 7 

its appeal to our readers is somewhat 
limited . 

It usually takes anywhere up to a 
month subsequent to receipt of a pro- 
gram before we have a chance to 
thoroughly review it. When we are 
looking for a particular kind of sub- 
mission to fill a space in the 
magazine, we may look at one pro- 
gram sooner than the others that ar- 
rived on the same day; but as a rule, 
we try to get to them as fast as we 
can. 

Once we have decided to go with a 
program, we contact the author and 
make an offer. If accepted, we then 
go ahead and debug the program as 
far as we are able, splice in the 
documentation, whip up an illustra- 
tion of some sort, and publish it. The 
amount we pay for a submission is 
determined by the editorial staff, 
based on the individual merits of a 
program, cover programs being 
worth more than shorts, etc. 

Often we will not use a submission 
for several months, until the right 
spot turns up. So if you send a pro- 
gram in and don't hear from us right 
away, don't despair. ^S^ 
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SAY YOHO 



by Scott Adams 

They're calling it the massacre at 
AI computer center! The night I 
single-handedly wiped out two com- 
puters and three printers in less than 
half an hour. It all started late one 
night at the lab.... 

I had just finished adding a new 
dunning letter feature to our in-house 
accounting system. The system runs 
on a 64K S-80 Model II with four 
drives, and takes care of everything 
from mailing lists to paying monthly 
royalties to our authors. The new 
dunning letter would automatically 
send out requests for payments to 
those dealers who were in arrears 
with us. I had set it up to run on a 
new Qume Sprint-5 daisy wheel 
printer we had just recently added to 
the lab. 

Well, I proceeded to hook up the 
Qume to the Model II to check out 
the program and the first thing I 
knew the printer was spitting out gar- 
bage. I disconnected the Model II 
from the Qume and hooked it back 
up to the Anadex 9501 that it normal- 
ly uses. 

I then connected the Qume up to 
the Model I to see if it was a com- 
patability problem between the 
printer and the Model II. It wasn't! 
Hooked up to the Model I, the Qume 



once again started spraying out gar- 
bage! At this point I realized that the 
Qume was dead, so I disconnected it 
and set it aside. 

About this time Jeffe Jessee 
stopped by to get a listing of a new 
program he was Working on, so I pro- 
ceeded to hook the Atari system up to 
the Anadex 9501. When we tried to 
list his program, however, the 
Anadex stood mute! I then quickly 
connected the Model II back to the 
Anadex to see if the problem was in 
the Atari. It wasn't (at least not en- 
tirely, it turned out). The Anadex had 
nothing to say when hooked up to the 
Model II or the Model I. I then con- 
nected the Model II to a Quick 
printer to at least verify that the 
Model II was still working... It 
wasn't. 

At this point I decided I could: 

1) Try hooking up the Apple to the 
Anadex to see if the printer was really 
broken; 

2) Try hooking up the Atari to the 
Quick printer to see if it was broken; 
or 

3) I could go home. 
I went home. 

The next day we surveyed the 
damage and found the following 
units were indeed shot: 

1) Qume Sprint-5, 

2) Model II printer port, 



3) Atari interface module, 

4) Anadex 9501 printer, and 

5) Centronics quick-printer. 

What a disaster! I had single- 
handedly done in half the lab! Later 
as we reconstructed the mess we 
realized what must have happened. 

1) The Qume was plugged into a 
Radio Shack line filter. It turns out 
this is a definite NO-NO and is what 
wiped out the Qume. 

2) The Qume then took out the 
printer port on the Model II. 

3) The Model II then axed the 
Anadex printer. 

4) The Anadex then gave the old 
heave-ho to the Atari and, as a final 
coup-de-grace; 

5) The Model II killed the Quick 
printer! 

Ah well, it could have been worse, 
I could have tried hooking the Apple 
up too! 

And now the good news: We have 
some new programs available for the 
Atari! A real-time "Lunar Lander" 
game, "Galactic Empire", and, at 
last, "Adventures"! "Lunar 
Lander" and "Adventures" require 
a minimum of 24K to run and 
"Galactic Empire" requires 32K; I'm 
sure if you flip through you'll find 
ads for them somewhere in this issue 
of SoftSide so for now I'll just SAY 
YOHO Q 



ABOUT TfflS ISSUE 



As you can see from our friend on 
the cover, this month's feature pro- 
gram is an udder delight! It's "Dairy 
Farming", a simulation by Scott 
Tapley. We wouldn't steer you 
towards this one if we didn't think it 
was a veal good program. Why we 
munchkins could play it until the 
cows come home, so to speak. Don't 
be cowed by the length of the listing; 
it's fun. We think it beefs up the 
magazine's appeal in the heartland. 
(Okay Fred, you're milked this one 
for all it's 'vorth, get on with telling 
the folks what's between the covers, 
already!) 

For those of you S-80 owners who 
are fond of getting lost in the woods 
every time you go outdoors, we have 
just the program for you: "Com- 
puter Orienteering". Now you can 
get lost in the woods in the comfort 



of your own living room! 

Wynne Keller from Downcast 
Digital in Maine has decided to grace 
our pages with a quick review of the 
Model III TRSDOS. Called "Kudos 
and Klunkers", her article explores 
the abilities of Tandy's latest, warts 
and all. 

And who might the mysterious 
"J" be? Or the KHbanesque blonde 
lurking behind his disk drives, for 
that matter... No one told us munch- 
kins there was just this strange 
package in the Editorial mail file with 
a scented card attached suggesting 
what to do with it... We decided to 
print it instead. 

Here's a chance for you Apple folk 
to stop pouring quarters down the 
slot at your local arcade. We present 
"Galaxia", by Michael Prescott. Cut 
from the same cloth, we also have 
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"Bombardment" for the Atari, 
courtesy of Alan Hartman, and an 
interesting lunar lander for the Atari 
called "Lunar Mission", by Matt 
Rutter. 

Monsieur Granite Knoggin ex- 
plores the world of lineprinters this 
month, telling us how to make the 
Centronics, Microline, and Epson 
printers do tricks. The only trick the 
munchkin printer knows is how to 
roll over and play dead, however. 

And of course there's the tale of 
woe from that Yoho fellow in 
Florida... it seems he singlehandedly 
wiped out a computer lab in a frenzy 
of chain reaction. Plus more on com- 
puter graphics, on how these 
machines work, and scads of reviews. 

'Til next month, a merry munchkin 
farewell. gi^ 
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Setde lor More 
fix»n%arlSS-80 



BASIC Compiler, with trs-so basic 

Compiler, your Level II BASIC programs will run at 
record speeds! Compiled programs execute an 
overage of 3-10 times faster than programs run 
under Level II. Make extensive use of integer 
operations, and get speeds 20-30 times faster 
than the interpreter 

Best of all, BASIC Compiler does it with BASIC, 
the language you already know. By compiling 
the same source code that your current BASIC 
interprets, BASIC Compiler adds speed with a 
minimum of effort. 

And you get more BASIC features to program 
with, since features of Microsoft's Version 5.0 
BASIC Interpreter are included in the package. 
Features like the WHILE . . .WEND statement, long 
variable names, variable length records, and the 
CALL statement make programming easier An 
exclusive BASIC Compiler feature lets you call 
FORTRAN end machine language subroutines 
much more easily than in Level II. 

Simply type in and debug your program as 
usual, using the BASIC interpreter Then enter a 
command line telling the computer what to 
compile and what options to use. 

Voila! Highly optimized, Z-80 machine code 
that your computer executes in a flash! Run it now 
or save it for later Your compiled program can be 
saved on disk for direct execution every time. 

Want to market your programs? Compiled ver- 
sions are ideal for distribution." You distribute only 
the object code, not the source, so your genius 
stays fully protected. 

BASIC Compiler runs on your 
TRS-80 Model I with 48K and disk 
drive. The package includes 
BASIC Compiler, linking loader 
and BASIC library with complete 
documentation. $195.00. 



MORE 

FROM 

MICROSOFT 



"Microsoft royalty information for 
the sale of programs compiled 
with BASIC Compiler is available 
from Microsoft. 




laaMKnH Symbolic Math System 

expands your TRS-80 beyond the limits of numeri- 
cal evaluation to a much higher level of math 
sophistication. 

Symbolic mathematics is muMATH's power For 
the first time, algebra, trigonometry, calculus, 
integration, differentiation and more can be per- 
formed on a system smaller than on IBM 370. And 
in a fraction of the time you could do them 
manually 

Yet for all its power, muMATH is simple to use. 
To perform a differentiation you could enter: 
?DIF[A'X t 3 + SIN(XT 2),X]; 

In almost no time, the computer would reply 
with: @2"X'COS[Xt 2] + 3*A*X t 2. 

Or to add fractions: ?1/3 + 5/6 + 2/5 -f- 3/7; 
The instantaneous answer: 419/210. 
Or to perform a more difficult trigonometric 
expansion you enter: SIN(2*Y)"(4"COS(X)t3-COS 
(3-X] 4- SIN (Y]"(COS[X-l-Y-l-#PI) - COS[X-Y]]; 

Just a few seconds later, the computer replies: 
@4"SIN[Y]"COS[X)"COS(Y]. 

muMATH has virtually infinite precision with full 
accuracy up to 611 digits. 

If you use moth, you'll find countless ways to save 
time and effort with muMATH. It's a professional 
tool for engineers and scientists. A learning tool 
for students at any level from algebra to calculus. 
And if you want to expand your capabilities 
even beyond the standard muMATH, the option is 
open. muSIMR the programming language in 
which muMATH is written, is included in the muMATH 
package. A superset of the lan- 
guage LISR muSIMP is designed 
especially for interactive symbolic 
mathematics and other artificial 
intelligence applications. 

muMATH and muSIMP were 

written by The Soft Warehouse, 

Honolulu, Hawaii . Priced at $74.95, 

the package includes muMATH, 

muSIMP and a complete manual. 

It requires a Model I TRS-80 with 

32K and single disk. muMATH 

for the Apple II Computer will 

be available later this year. 



r CONSUMER^ PRODUCTS^ 
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WORD SEARCH PUZZLE #2 




©yGS.VVOiMS, 


In April we 


gave you 


a word-search puzzle embedded 




and other undesirables 


with all sorts 


of 


computer-relatec 


words like 


"erroi 


-»» 






"peripheral", and 


"subroutine' 


'.If 


' vou had fun with that 




In the S-80 version of "Strategy Strike" 


one, you may find this 
because (heh, heh) you 
However, that should be 
literate SoftSide readers. 


one ever more of a challenge, 

don't get a word Hst this time. 

no problem for you computer- 

because all 67 of the embedded 




published in the March issue of SoftSide, line 80 

should be changed to: 

80 NL»=M234567B90123456789n2345i7"!E 
9=VARPTR (NL« ) : EB=PEEK (E9+1 ) +256«PEEK(E 
9+2):FORE7=E8 TO E8+2i:READE6:P0KE £7, 


words (at least all of them that we intentionally put in) ; 


ire 




Ei;NEXT:DATfl 205,127,10,77,68,62,1,105 


BASIC keywords. 


commands, and functions 












,211,255,45,32,253,13,16,238,175,211,2 


We'll give you 1 


he answer key and the word lis 


t next 




r 1 r f r 9 r I 1 1 ' 

55,201 


month, and later on we' 


1 even 


give you the 


program 


by 








David Durkee that generated both of these puzzles, so that 




In the Atari version of "Boing" published in 


you can create them on your own to your heart's content! 




the November issue of SoftSide, the following line 


By the way 


the solution 


lO last 


month's 


puzzle 


is 


on 




should be added: 


page 33. 
























400 SOUND 1,200, 10, 8: FOR TmE=l TO 10: 
NEXT TIHE:SGUND 1,0,0,0:RETURN 
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450 DATA 32,17,18,18,18,18,5,32,32 
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I would like to clear up the confusion surroun- 
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ding my article, "Atari Memory Upgrade" which 
appeared in the March issue of SoftSide. First, 
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there is an error in step 6. The memory board 
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puter, not the component side as was indicated in 
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Second, I have heard from readers that some 
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8K modules have the jumper resistors installed in 
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boards. This has caused some confusion when 
readers tried to "remove resistor B" only to find 
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article, I have obtained from Atari the schematics 
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System User's Manual and Hardware Manual", 
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Atari part number CO 16555, a hefty volume 
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prove invaluable to Assembly Language program- 
mers.) The schematic for the 8K board indicates 
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that there are apparently four different 8K boards 
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between the versions that I have been able to 
discern is in the placement of the two jumper 
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My interpretation of the schemadcs is that the 
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modification described in the article should work 
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for all four versions of the Rev. 3 board. In step 7, 
where you are told to remove the jumper resistors 
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present, and install one at "C" if there is not one 
there already. Perform the other steps as indicated 
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(be sure to note the correction to step 6 above). 
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I must stress that I have NOT been able to try 
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the board, as I have never seen one, but it appears 
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Finally, I have heard rumors that the 8K Atari 
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(less the plastic case). If this is true, it should be 
possible to upgrade a 400 to 16K using the same 
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BOMBARDMENT 




by Alan Hartman 

"Bombardment" is an Atari pro- 
gram requiring 16K and a joysticli. 

Can you save your bases from the 
enemy's barrage of missiles? You 
control a modern ship with a power- 
ful anti-missile cannon which you can 
use to destroy the enemy's incoming 
missiles, but you must be quick to 
catch them all before they destroy 
your bases with their explosive 
charges. The enemy keeps up the at- 
tack, gaining speed, and making it 
harder and harder to protect your 
bases. How long can you survive? 
And to make your job even harder, 
some of the enemy missiles are 
MIRVs (Multiple Independently 
targetable Reentry Vehicles, which 
can split up into more missiles. 

You will have 15 missiles at the 
start of each round. The four bases 
you are assigned to protect are at the 
top of the screen, and your ship is in 
the middle of them. To destroy the 
enemy missiles rising from the bot- 
tom of the screen, move the joystick 
to position the crosshairs ahead of 
the missile. Press your fire button, 
and an explosion will occur. If the 
enemy missile hits the explosion, it 
will be destroyed. You must keep 
your defense going until all missiles 
have been destroyed. 

For each enemy missile you 
destroy, you are awarded 25 points 
multiplied by the difficulty level. For 
each remaining missile of your 15, 
you get 5 points times the difficulty 



level. For each remaining base, you 
get 100 points times the difficulty 
level. The object of the game is to get 
the high score. GOOD LUCK! 

VARIABLES 

CI(A, B): Table for city and ship data 

(see below). 

JB: Value from fire button. 

JS: Value from joystick. 

MI (A, B): Table for enemy missile 

data (see below). 

N: Number of enemy missiles. 

SC: Score. 

SH: Missiles left to fire. 

X, Y: Position of crosshairs. 

A, B, C, D, E, I, T: Temporary 

usage: loops, timing delays, etc. 

TABLE DATA 

(variables MI(A, B) and CI(A, B) 

MI(0, A): 1= Active missile, = 
destroyed. 

MI(1, A): Present X location of 
missile. 

MI(2, A): Present Y location. 
MI(3, A): X offset to target. 
MI(4, A): Y offset to target. 
MI(5, A): Starting X location (used 
for erasing). 

MI(6, A): Starting Y location. 
CI(0,A): 1 = Active base, = de- 
stroyed. 
CI(1, A): X location of base. 

DOCUMENTATION 

Lines 30-70: Initialize the tables for 
the bases and the ship. 



Lines 80-90: Check to see if there are 
any bases left. If not, then go to the 
end of game routine. 
Lines 100-130: Build a graphic mode 
with one line of text at the top of the 
screen, the 92 lines of graphics 
mode 7. 

Lines 140-150: Place the remaining 
bases onto the screen. 
Lines 160-220: Initialize the table for 
the enemy missiles. 
Lines 230-350: Erase old crosshairs, 
process the joystick movements, 
draw the new crosshairs, and repeat. 
Lines 360-570: Take care of the ex- 
plosions of the missiles. 
Lines 680-690: Move the enemy 
missiles, check to see if they hit 
anything, and deplete your missile 
supply if your ship was hit. 
Lines 700-790: Erase a base hit by an 
enemy missile. 

Lines 800-820: Update the score 
when an enemy missile is destroyed 
and erase the old missile. 
Lines 830-840: Check to see if all 
missiles have been destroyed. 
Lines 890-900: Draw the bases. 
Lines 910-1010: Update the score at 
the end of one round. 
Line 1020: Draws the crosshairs on 
the screen. 

Lines 1030-1047: End of game 
display. Allow player to start a new 
game. 

Lines 1050-1090: Set the colors 
depending on the difficulty level. 
Lines 1100-1210: Break an enemy 
missile into more missiles. 
Lines 1220-1250: Print the message to 
start each round. 



5 REH MX wmfsmn nx 

6 REM BY Al3n Hartwan 
/REH 

10 DIMCI(1,5),MI(645)JM=1 

20 X=INT(W«)(0)x155+2):Y=INT(W«)(0)x77 

)+5:sc=o 

30 DATA 26,52,101,130,79 
10 RESTIKE 30 

50 FOR 1=1 TO 5:RB«) T 

6B CI(0,I)=i:CI(l,I)=T 

70 NEXT I 

80 FOR C=l TO V.l? CI(0,C)=1 THEN 100 

90 NEXT CIGOTO 1030 

m rmjp 1220 :sp=o .'graphics 23:poke 7 

52,1 

110 I=fEEK(560)+PEEK(561)x256+i:Pl»(E I 

-1,665P0KE I+93,65{P0KE I+91,PEEK(5A0) 


iPOKE I+95,PEEK(561) 
115 REM IN LINE 120 POSHION 19,0 SHOU 
LD HAVE A INVERSE 'CONTROL J 8 H' TO F 
ORM A TRIANGLE POINTING DOWN 

120 POKE 87,o:posnioN i9,o:print W," 
;;posniON 2,ojprint »6;"R(aiRE : "; 

SC? 

130 RnSIIB 1050!POKE 87,7 

140 FOR T=l TO 4:F CI(0,T)=1 THEN C=l 

:D=ci(i,T):Gosue 890 

150 NEXT T:SH=10:POt<E 87,fl:P0SITI0N 22 
,0!PRINT »AJ"«ISSLES LEFT : "JSHJtPOKE 
87,7 

160 N=INT(RW)(0)iHx2)+4:F N>10 TltN 1 

60 

170 RflSHB 1020 

180 FOR 1=1 TO N 


190 «I(fl,I)=i:HI(5,I)=INT(RND(fl)il58)+ 

1!MI(6,I)=92 

200 T=INT(RND(0)i5)+1:A=CI(1,T)+WO(0) 

x5i-l''(INT(RND(0)x2)+l)!D=SQR((A4a(5, 

I))'>2+91^2) 

210 MI(3,I)=(A-MI(5,I))/D!MI(1,I)=91/D 

!MI(1,I)=MI(5,I):MI(2,I)=«I(6,I) 

220 NEXT I 

230 FOR JT=1 TO 9-H 

240 SfKM) fl,X+Y,10,4 

250 JS=SnCK(0):JB=STRIG(O):F JB=0 TH 

EHGOSUB360 

260 F SH=0 THEN GOSUB 580 {GOTO 260 

270 F JS=15 THEN GOTO 340 

280 LOCATE X,Y,I;F 1=2 OR 1=0 THEN CO 

LOR o:plot x-2,yjdrahto x+2,y:plot X,Y 

-2JDRAHT0 X,Y+2 

290 F JS>8 AND JS<12 THEN X=X-1JF X< 

3 TICN X=157 
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300 IF JSM AND JS<8 THEN X=X+1JF X>1 

57THENX=3 

310 F JS=9 OR JS=13 Oft JS=5 THEN Y=Y+ 

IJff Y>90 THEN Y=A 

320 F JS=10 OR JS=11 OR JS=6 THEN Y=Y 

-IJF Y<6 THEN Y=90 

330 LOCATE X,Y,IJF 1=0 THEN GOSIB 102 



310 fEXT JT 

350 GOSUB 580:GOTO 230 

360 F SH=0 TtCN GOSJB 1030:GOTO 910 

370 POKE 87,0tPOSrriON 2Z,0:SH=SH-i:PR 

INT ttJ-'HISSLES LER ! "}SH!" '", 



380 POKE 87,7:C0L0R 3tPL0T 79,1JDRW(T0 

K,r,aiLOR o;PLOT 79,i;dra«to x,y 

390 FDR C=l TO 100 STEP 3!S0UND 0,C,10 
,6:i€XT CiSOUND 0,0,0,0 

100 FOR E=fl TO 5:a=x-e:b=x+E!c=y-ejd=y 

+E 

110 F A<0 THEN A=fl 
120 F B>159 THEN B=159 
130 IF C<1 Tt€N C=1 



HO F D>92 TJCN D=92 
150 SOUM) 0,6,0,E+3!SOUND 1,21,0,E+3:S 
OUND 2,27,0,E+3:SOUND 3,10,0,E+3 
160 COLOR 3:PL0T A,C:DRAHT0 B,C:DftAWTO 
B,D:DRAm'0 A,D:DRAUT0 A,C:G0SU6 580 
170 NEXT E 



180 FOR E=5 TO STEP -1!A=X-E'.B=X+E:C 

=y-e:d=y+e 

190 F A<0 THEN A=0 
500 F B>159 T^£N B=159 
510 F C<1 THEN C=1 
520 F D>92 TJCN 0=92 



530 COLOR 0:PLOT A,CtDRA«TO B,C!DRAWTO 
B,D:DRANT0 A,D:DRAm'0 A,C:G0StJB 580 

510 SOUND o,6,o,e:soim) i,21,o,e:sound 

2,27,0,E:SOUND 3,10, o,e 
550 NEH E 
560 GOSUB 1020 

570 RETURN 

580 POKE 77,0!FOR 1=1 TO N:F MI(0,I)= 

THEN 680 

590 F Ml(2,l)<60 AND RND(0)<0.1 W«) S 

POl THEN SP=1!G0SUB 1100 

600 FL=I;COLOR 2;PL0T «I(1,I),HI(2,I) 



m w:(i,i)=«i(i,i)-ntt(3,i):ffl:(2,i)=«i 

(2,I)-HI(1,I) 

620 F MI(Z,I)<1.5 TtCN Hl(2,l)=l 

630 LOCAF MI(1,I),HI(2,I),A:F aoo t 

HEN ON A GOTO 700,670,800 

610 F KI(Z,I)=1 THEN F (Ml(l,l)>82 

R MI(1,I)<76) THEN 810 



650 IF HI(Z,I)=1 THEN S»=0JFOR C=50 TO 
250:SOUND 0,C,10,8;NEXT CiGOTO 810 
670 DRAHTO MI(1,I),KI(2,I) 
680 NEXT I 
690 RETURN 

700 mi(o,i)=o:for b=i to i:f ci(o,b)= 

THEN 780 

710 F HI(1,I)<CI(1,B)-1 OR MI(1,I)>CI 

(1,B)+1 then 780 

720 FOR T=0 TO 9 

730 SOUND 0, 99,8,8 JSOUND 1,75,8,8:S0UN 

D 2,60,8,8:SOUND 3,20,8,8 

710 C=2:D=CI(1,B):G0SUB 890 

750 FOR C=0 TO 3:S0UND C,O,D,0:fEXT C! 

C=0:GOSUB 890 

760 NEXT T 

770 CI(0,B)=0tGOTO 810 

780 f€XT B:G0T0 810 

790 GOTO 680 

800 sc=sc+int(H)i25:poke 87,fl:posrri0N 

2,0:PRINT *6;"SC0RE : "JSCJIPOKE 87,7 
iSOUN) 0,30,10,10 

810 COLOR OJPLOT MI(5,I)+1,MI(6,I):DRA 
WTO MI(1,I)+1,HI(2,I):PL0T HI(5,I),MI( 
6,I);DRAm'0 MI(1,D,HI(2,I) 
820 PLOT HI(5,I)-l,MI(6,I):DR/»fr0 Mid 

,I)-i,mi(2,i):hi(o,i)=o 

830 a=0:FOR NU=1 TO N:F MI(0,NU)=1 t 

HENFL=1 

810 NEXT NU;iF FL=0 THEN 910 

850 FOR T=l TO i;iF CI(0,T)=1 THEN C=l 

:D=CI(l,T)!GOaJB 890 

860 NEXT T 



870 f sh=0 then poke 87,0 {position 22 
,o:print ♦6;"missles left ; "ish;- ";: 

POKE 87,7 
880 K)T0 680 

890 COLOR c:plot d-i,i:drahto d+i,i:pl 

OT D-3,2:DfiAWT0 D+3,2:PL0T D-2,3:DRAWT 
[HZ,3 
900 RETJW 



910 FM^ T=o TO 3;soiM) t,o,o,o:next T 

920 F SH=0 TJEN 970 

930 FOR T=SH to 1 STEP -1 

910 POKE 87,0:POSITION 22,0:PRINT *6J" 

MISSLES LEn : "JT-l!" ") 

950 SC=SC+5xINT(M)JP0Sni0N 2,0:PRINT 

*6;"scoRE : "jscj 



960 mm o,60,io,6:for c=i to 75:next 
cjsouND o,o,o,o:for c=i to 25:fEXT c; 

NEXT T 

970 for T=1 to 1:IF CI(0,T)=0 then 101 



980 POKE 87,7:D=CI(1,T)JC=OJGOSUB 890: 

a:=SC+100xINT(M):POKE 87,0 



990 POSmON 2,0JPRINT ♦6;"SC0RE ', "JS 

c 

1000 SOUND 0,120, 10, 6:fqr c=i to 15d:n 

EXT CJSOUND 0,D,fl,0:FOR C=l TO 50:NEXT 

c 

1010 NEXT T:pa<E 87,7:M=«+0.5:GOTO 80 
1020 COLOR 25PLOT X-2,Y:0RAMT0 X+2,Y:P 
LOT X,Y-2JDRAHT0 x,y+2:return 
1030 graphics l+16!P0Sm0N 0,11JPRINT 
»6?"FINAL SCORE : "JSCJ 
1035 POSmON 1,6JPRINT *6}"bortb3rA«n 

t"; 

1010 POSmON 0,13JPRINT *6r'con9r3tul 
3tions !!!"} 

1015 POSmON 2,22JPRINT *6J"PRESS 'fi 
re' FOR";:POSrriON 5,23:PRINT *6}"NEXT 
GAME!"!:S=1 

1016 SOUND o,s,io,i:f strig(0)=i then 

S=S+3:G0T0 1016 
1017 RUN 

1050 DATA 0,1,12,1,3,12,1,8,5,1,8,11,1 
,8,5,12,8,6,11,3 

1060 RESTORE 1050 

1070 A=INT(M)-INT(INT(M)/5.01)i5-l{F 

AOO THEN FOR T=l TO liAJREAD C:NEXT T 

1080 READ C:SETCOL(B< 1,C,0!READ CiSETC 

XOR 0,C,1:READ CJSETCOLOR 1,C,6!RE«) 

CJSETCOLOR 2,C,2 

1090 RETURN 

1100 a=int(rnd(0)x3)+i:for b=i TO n:f 

MI(fl,B)=l THEN 1150 

1110 a=a-i{hi(0,b)=i:«i(5,B)=«i(i,i);m 

I(6,B)=«I(2,I) 

1120 T=INr(RND(0)i5)+i:C=CI(l,T)+ra«)(0 

)i5i-1^(INT(RND(0)i2)+1):D=SQR((C-MI(5 

,B))'^2+(MI(6,B)-1)''2) 

1130 HI(3,B)=(C-«I(5,B) )/D;«I(1,B)=(MI 

(6,B)-1)/D:KI(1,B)=MI(5,B)!MI(2,B)=«I( 

6,B) 

1110 F A=0 THEN REUMi 

1150 NEXT B 

1160 IF N+A>15 THEN A=15-N 

1170 FOR B=N+1 TO A+N{N=N+1 

1180 MI(0,B)=1!MI(5,B)=HI(1,I):MI(6,B) 

=MI(2,I) 

1190 T=INT(RW)(0)x5)+i:C=CI(l,T)+RW)(0 

)X5X-1''(INT(RND(0)X2)+1) :D=StlR( (C-flI(5 

,B))'^2+(MI(6,B)-1)*2) 

1200 MI(3,B)=(C41I(5,I))/D:MI(1,B)=(MI 

(6,B)-l)/DtMI(l,B)=«I(5,B):MI(2,B)=ft[( 

6,B) 

1210 NEXT B:RETURN 

1220 GRAPHICS l+16:Pt)SinON 6,6:PRINT 

♦6J"PLAYER »l":POSmON 1,9:PRINT ♦6JI 

NT(H)!" « THE VALUE" 

1230 POSITION 5,20JPRINT »6r'pres5 'fi 

re'" 

1210 F STRIG(0)=1 THEN 1210 

1250 RETURN 
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6 South St.Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1 -800-258-1 790 




PASCAL-80 



A powerful, structured and well-defined language for the 
S-80 microcomputer, this easy-to-use language makes writing 
well-structured, and therefore easily understandable programs 
simple. "Pascal-80" supports most of the features of UCSD 
Pascal, including RECORD, SET (to 256 members), FILE (test 
and record oriented), n-dimensional ARRAY (and ARRAY of 
ARRAY, etc), global GOTO, ELSE in CASE statements, 
BCD arithmetic accurate to a full 14 places (including log and 
trig functions), and 6 digit optional, 
S-80 32K Disk #26-141001D $99.95 



Strategic Simulations 



COMPUTER AIR COMBAT 



You'll swear your keyboard has melted into the throttle, rud- 
der, altimeter, and other cockpit instrumentation of a World 
War II combat plane. In fact all 36 famous fighters or bombers 
are rated for firepower, speed, maneuverability, damage- 
tolerance, and climbing and diving ability. Play the computer 
or a human. 
Apple II 48K Disk #47-219001D $59.95 



COMPUTER NAPOLEONICS 



You are on the battlefields of Waterloo on the fateful day of 
June 18, 1815. Here, the greatest battle ever fought is about to 
begin, awaiting only your commands to set the amassed armies 
in motion. 

You and your friend choose your role — either as the 
military genius. Napoleon, or as the Duke of Wellington, the 
iron-willed leader of the Anglo-Allied forces. 

The Computer, in the solitaire scenario, plays Wellington 
while you play Napoleon. "Computer Napoleonics" has all the 
advantages of a traditional wargame — meticulous detail, 
realism, and playability, and because the computer keeps track 
of all the rules, neither player can make an illegal move. This 
makes learning it a cinch. Comes with the game program, two 
mapboard cards, a rule book, and two player-aid charts 
Apple II 48K Disk #47-219004D $59.95 



OPERATION APOCALYPSE 



Features a 7 by 18 hexagonal mapboard generated by Hi-Res 
graphics and color to represent rivers, bridges, hills, towns, 
and forests. Incorporating four different scenarios, this game 
has everything wargamers love: paratroopers, pre-plotted ar- 
tillery bombardment engineers, tanks, commandos, and infan- 
try 
Apple IIH- 48KDisk #47-219005D $59.95 



COMPUTER QUARTERBACK 



You are propelled onto the playing field of the Super Bowl. 
From its multiple offensive and defensive plays and its real- 
time playing conditions to the animated video display of the 
gridiron and the halftime statistics, no strategy football game 
has ever been more complete in detail or as exciting in realism. 
Three versions are offered: Semi-Pro, Pro, and Computer-as- 
Opponent. 

"The Robots" is the team most ably coached by your friend- 
ly computer. It's ready to play any time you are It even 
"learns" your tendencies and patterns through time, and it will 
make the necessary tactical adjustments to provide you a 
tough and well-fought battle. 
Apple II 48K Disk #47-219003D $39.95 



COMPUTER CONFLICT 



"Computer Conflict" actually consists of two fast-paced, 
action-packed wargames played on full-color mapboards of 
Hi-Res graphics: "Rebel Force" and "Red Attack". 

"Rebel Force" puts you in the role of a Soviet commander 
whose regiment must face a computer-directed guerrilla upris- 
ing which has overrun a vital town. 

"Red Attack!" simulates an invasion by a mixed Soviet tank 
and infantry force against a defending battalion. As the 
defender, your task is to deploy your infantry units effectively 
to protect three crucial towns that must not fall! 
Apple II 48K Disk #47-21 9002D $39.95 



CARTELS & CUTTHROATS 



A business game that is challenging, informative, and 
above all else, fun. Allowing for up to six players (of which a 
maximum of five can be played by the computer), each 
player manages a manufacturing firm in direct competition 
against the other players. 
Apple ll-f 48K Disk #47-219007D $39.95 
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Hayden Book Company. Inc. 



BASIC COMPUTER 
THE HOME 



PROGRAMS FOR 



Contains over 75 practical home application programs that 
will be helpful to the novice or experienced owner in increasing 
the usefulness of any home computer. Each program is 
documented with a description of its functions and operation, 
a listing in BASIC, a symbol table, sample data, and one or 
more samples. Programs included are: Home Financial Pro- 
grams; Automobile Related Programs: Kitchen Helpmates; 
Scheduling Programs for Home Use; and more. 
#65.210001 B $9.95 



HOW TO PROFIT FROM YOUR 
PERSONAL COMPUTER: PROFESSIONAL, 
BUSINESS, AND HOME APPLICATIONS 



IIUJ 

QUALITY 




/^to^Hiu 



CONFLICT 2500 



The year is 2500 A.D., and earth is threatened by marauding 
"Planet Pulverizers" looming on the horizon to blow up earth. 
The computer takes the part of the attacking aliens pro- 
grammed with an infinite number of attack strategies with 
which to tease the player, who must defend earth against such 
attack Solitaire only. 

S-80 Cassette #26-237001 C $1 5.00 

Apple II Cassette #47-237001C $15.00 

Atari Cassette #36-237001C $15.00 




Describes the uses of personal computers in common 
business applications, such as accounting, managing inven- 
tory, sorting mailing lists, and many others. The discussion in- 
cludes terms, notations, and techniques commonly used by 
programmers. 
#65-2100036 $10.75 



COMPUTERS IN ACTION: HOW 
COMPUTERS WORK, Second Edition 



The books answers the questions: "What are computers?" 
"How do computers work?" and "What can a computer 
do?" New features of this second edition include: microcom- 
puters and microprocessors; new memory devices such as 
floppy disk; new input/output units such as COM units; and a 
section on structured programming, the APL language, and 
the RPC language. 

Numerous photographs, diagrams, and cartoons illustrate 
specific concepts and equipment. 
#65-2100076 $7.25 




THE 6800 MICROPROCESSOR 
A SELF-STUDY COURSE WITH 
APPLICATIONS 



Includes introduction to the 6800, simple programming, in- 
troduction to Motorola 6800 Input/Output, using the 
Micro-68 displays, using the Micro-68 keyboard, handling 
data arrays on the Micro-68, and much more. Includes 15 
laboratory experiments. 
#65-2100086 $9.55 



THf FIRST BOOK OF 
MICROCOMPUTERS: THE HOME 
^COMPUTER OWNER'S BEST FRIEND 



The author explains what personal computers are and what 
you can do with them. You'll learn how to speak the language 
of computing and how a personal computer is constructed and 
how it works. 

Then, the last chapters detail the many home and business 
applications of your personal computer, including such things 
as home protection, keeping track of budgets and bills, game 
playing, inventory management, and tax calculation. 
#65-2100028 $5.95 




LORDS OF KARMA 



The player finds himself in a mythical, magical city to per- 
form as many deeds of kindness and bravery as possible. The 
fun is in the gradual deciphering of the many secrets while ex- 
ploring verdant forests, twisting trails, rugged mountains, and 
labyrinthine caverns. ..and avoiding lurking monsters. Almost 
no rules to learn; you tell the computer what you want by typ- 
ing simple English sentences on the keyboard. The computer 
responds with many surprises in store. Solitaire only. 

S-80 Cassette #26-237003C $20.00 

Apple II Cassette #47-237003C $20.00 

Atari #36-237003C . . $20.00 



COMPUTER ACQUIRE 



Object is to become the wealthiest person in this business 
game about hotel acquisitions and mergers. When played as a 
two to six player game, it is a subtle game of strategy. As a 
solitaire game, one plays against the computer that has been 
programmed to play "smart". One can even pit the computer 
against itself. 

S-80 Cassette #26-237002C $20.00 

Apple II Cassette #47-237002C $20.00 

Atari Cassette #36-237002C $20.00 



TILSE 

DATA PLOT 



Easy editing features allow you to create and modify a 
wide variety of full-color graphic representations of 
numerical information. Bar charts, including additive bars, as 
well as single and multiple line charts may be plotted in- 
dividually or cumulatively. Pie charts are easily sliced. All 
figures may be output to a graphics printer or saved. 
Apple 48K Disk #47-214002D $59.95 



HIRES-80 




"HiresSO" is a powerful graphics editor for a 80-CRAFIX 
equipped S-80. With this editor you can conveniently create, 
store, recall and edit character sets of your own design. 

S-8016K Cassette #26-TRS43 $15.95 

S-80 32K Cassette #26-TRS20 $19.95 
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SHAPE BUILDER II 



sREALTY PACKAGI 



Sick and tired of writing out all those little arrows converting 
them to hexadecimal, etc.? Cure the pain of messy shape tables 
— see the shape in Hi-Res as you enter it. 
Apple l( 48K Disk #47-277008D $19.95 



ZAP 



You move in a spaceship and try to ZAP the colored ob- 
jects If you crash into a star, you are destroyed 
Atari 8K Cassette #36-277024C $6.95 



STARTRAK 



As captain of a starship, your mission is to rid the warring 
Stingons from the federation and make the galaxy safe. 
Atari 8K Cassette #36-277023C $6.95 



REVERSI 



The object of "Reverse" is to put a set of randomly placed 
numbers in order. You do this by taking groups of words and 
turning them around. 
Atari 8K Cassette #36-277022C $6.95 



CONNECT 4 



In this game you and another player drop tokens into a slot 
to build up four in a row to win. 
Atari 8K Cassette #36-277021C $6.95 



This program is an invaluable tool for the real estate broker 
or investor. It will calculate: present value, price to yield, 
amortization schedules, cash flow analysis, and much more It 
comes with a 60-page manual and many examples. 
Apple II 48K Disk #47-2770050 $59.95 
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DISK MAGIC 



This utility program allows the user to examine and modify 
diskettes created for the Apple 1 1 from the physical sector level 
and without the limitations imposed by standard DOS com- 
mands. It is possible to determine actual remaining disk space, 
release system space for program use, fix damaged files of all 
types, and restore some files that have been deleted. A com- 
prehensive manual is included. 
Apple II 48K Disk #47-277006D $24.95 

AMPERSORT II 



"Ampersoft H" is a high-speed Machine Language utility 
sort subroutine capable of sorting integer, floating point and 
string arrays. Examples are included. 
Apple II 32K Cassette #47-277007C $15.95 



HOUSEHOLD INVENTORY 



Do you have a tough time keeping track of all your valuable 
possessions? Now your Apple and "Household Inventory" can 
help. Items are listed by room and entries contain information 
such as manufacturer, serial number and value. Values can also 
be represented graphically. 
Apple II 48K Disk #47-27701 3D $24.95 



Displayed on your screen is a square divided into smaller 
squares. All but one of the squares has a letter in it. You move 
the letters around and put them in order. 
Atari 8K Cassette #36-277020C $6.95 



LANDER! 



You are captain of a spaceship about to land on the moon. 
You must keep a cool head and have sharp reflexes to land 
safely. 
Atari 16K Cassette #36-27701 9C $6.95 



ASM/65 



"ASM/65" is a powerful 2-pass disk based assembler. It is a 
compatible subset of FORTRAN cross-assemblers available 
for the 6500 series family. Apple "PIE" is provided with 
"ASM/65" to form a comprehensive development tool for the 
Assembly Language programmer. 
Apple II 48K Disk #47-277003D $69.95 



MINI LEDGER 



"Mini Ledger" is the perfect bookkeeper for a small family 
business. Options include the following: sales and cash 
receipts; payments and expenses; business header; sales and 
cash summary; plus others. Search routines are included as well 
as a printer routine for a hard copy record. An excellent 
investment. 
Apple II 48K Disk #47-277004D $59.95 



HOUSEHOLD FINANCE 



Now there is a way to keep track of your personal and 
household finances. This program allows you to see just what 
you spend and will help you to stretch your budget. Printer 
routines are included so that you may have a hard copy record. 
Apple II 48K Disk #47-277012D $24.95 



CHECKBOOK 



This is a complete checkbook management program that 
resides in only 12K of memory. This allows the user almost 
the entire diskette for storage of data. This program allows: 
posting of checks and deposits, listing checks and deposits, 
reconciling, balancing, searching on any field, and clearing 
accumulated balance. Hard copy routines are built into the 
program to aid the user in record keeping for tax purposes. 
Apple II 48K Disk #47-2770110 $34.95 



PICOMATH-8C 



"Picomath," the study of computer algebra, has four 
demonstration programs which include polynomial expan- 
sion, rational expansion and simplification, trigonometric ex- 
pansion and simplification and fourier transformations. 

The design goal of extreme compactness necessitated 
reliance upon built-in approximate floating-point arithmetic 
and use of indirect synthetic techniques that are quite dif- 
ferent from those generally employed manually or by more 
sophisticated large symbolic math systems. 

The original source code written in BASIC is easily adapted 
to other languages. Includes a 50-page manual. 

Apple Cassette #47-27701 OC $19.95 

S-80 Cassette #26-277010C $19.95 
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TYPRINTER 221 (9-221) $2495.00 

NEC 5510 SpinWriter (9-5520) $3095.00 

NEC 5530 SpinWriter (9-5530) $2595.00 

© CENTRONICS 730 (9-730) 

CENTRONICS 737 ^g.^g^^ Call (or price 

OKIDATA Microline-80 (9-80) $459.00 

@ OKIDATA Microline-82 (9-82) $649.00 

(3) OKIDATA Microline-83 (9-83) $949.00 

OKIDATA SL300 (300 1pm) (9-SL300) $3795.00 

EPSON MX-70 (9-MX70) $419.00 

EPSON MX-80 (9-MX80) $519.00 

EPSON MX-80FT (9-l\/iX80FT)$619.00 





NEC Tractor-Feed Option (9-5000) $229.00 

BDT Stieet-Feeder (NEC only) 0ption(9-5005) $1849.00 
Microrme-80 or 82 Tractor-feed Option (9-80-T) $59.00 
Centronics Zip-Pack Ribbons (3-pack) . (21-01) $15.95 
SpinWriter Multi-Strike Ribbons (3) . . . (21-02) $18.95 

Microline Printer Ribbon (3-pack) (21-04) $12.95 

EPSON Printer Ribbons (2-pack) (21-05) $25.95 

TS€JHPRDSID€ 

6 South St.Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 




PICK SJOVft 
PftlNTCft FftOM 
TS£*HAftl>SID6 
TODASI! 




RS MOD-I Printer (36-pin) Int. Cable (26-1411) $59.00 
RS MOD-I Printer (40-pin) Int. Cable (26-1416) $59.00 
RS MOD-I & III Printer (36-pin) Cable (26-1401) $29.00 
RS MOD-I & III Printer (40-pin) Cable (26-1415) $29.00 

RS MOD-I & III LRC Printer Cable (9-10) $29.00 

APPLE Parallel Int. & Cable (36-pin) . (47-936) $100.00 
APPLE Parallel Int. & Cable (40-pin) . (47-940) $100.00 
APPLE Asynchronous RS-232C lnt(47-7710A) $159.00 
ATARI-Macrotronics Print. (36-pln) lnt(36-936) $69.95 
ATARI-Macrotronics Print. (40-pin) lnt(36-940) $69.95 



TERMS: Prices and speclllcallons are subject to cliange. HAROSIDE accepts VISA & 
MASTERCARD. Certified checks and Money Orders; Personal checks accepted (takes 3 
weeks to clear). HARDSIDE pays all shipping charges (witliln 48 states) on all PREPAID 
orders over $100.00. On all orders under S100.00 a {2.50 handling charge must tie added. 
COD orders accepted (orders over S250 require 25% deposit) there Is a tS.OO handling 
charge. UPS Blue Label, Air Freight available at extra cost. 




SoftSidc IVIay 1981 




THE SENSUOUS PROGRAMMER^ 



by J 

THE FIRST 

IN A SEEMINGLY ENDLESS 

SERIES OF COLUMNS 

When people ask me what my job 
is, and I tell them that I work for 
SoftSide magazine, I am learning to 
anticipate one of two reactions. The 
first one comes from women, who 
stare at me briefly with a mixture of 
uncertainty and embarrassment, and 
then walk away without another 
word. The second reaction comes 
from men, who stare at me briefly 
with a mixture of uncertainty and en- 
vy, and then ask me if I could send 
them a sample copy — in a plain 
brown wrapper. 

So I figure that as long as non- 
computer-oriented people think of a 
skin magazine when they hear the 
name "SoftSide", there might as well 
be something sexy inside, if only the 
title of a column. 

Actually, the title is not quite so 
totally frivolous as that. (Almost, but 
not quite.) "Sensuous" is a word that 
means (among other things) "of or 
relating to the senses." And what are 
the senses but the means that people 
use for interfacing and com- 
municating? And what is computer 
programming but the means of com- 
munication between people and com- 
puters? So, you see, it's quite logical 
that a column having to do with pro- 
gramming should have such a title. 

Besides, would you have read this 
far if the title had been "Multifaceted 
Considerations of Technical and 
Stylistic Aspects of BASIC, With Ac- 
companying Relevant Personal 
Observations and Occasional Irrele- 
vant Digressions"? 

No, I didn't think so. 



Well, let's get into the socially 
redeeming part of this column, which 
is supposed to be an informal discus- 
sion of things relating to programm- 
ing. In this my goal is to follow the 
Ancient Adage of ATOGADAYA 
(that's ah-TOE-gah-DIE-ah): 
Assume The Other Guy's As Dumb 
As You Are. (This is the timeless 
word of wisdom which has lately 
been corrupted by our modern per- 
missive society into the form, 
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"KISS" — Keep It Simple, Stupid. I 
prefer the classic formulation.) 

As dumb as I assume that you are, 
then, it seems appropriate in this 
premiere column to ask the question, 
"Why write computer programs in 
the first place?" The answer to this 
question won't provide the key to the 
meaning of the universe, but it might 
help to make programming less 
mysterious and more enjoyable. 

At first glance, the question seems 
to have as many different answers as 
there are programs. One program is 
written to display a battle against an 
attacking alien force bent on destroy- 
ing your galaxy. Another is written to 
take you on an imagined adventure 
through Count Dracula's castle. 
Others are written to help you with 
bookkeeping and mailing lists and 
medical records. Still others are 
designed to beat you at chess, bridge, 
and backgammon, and to simulate 
baseball, basketball, airplane 
piloting, and nuclear power 
engineering. 

On the outside, it seems that all 
these types of programs are written 
for different reasons, ranging from 
pure entertainment to serious 
business. But on the inside, there is 
just one reason WHY any computer 
program is written, and that fun- 
damental reason controls the whole 
programming process — from con- 
cept, through analysis and design, to 
coding and debugging. It's entirely 
possible to write a working program, 
without ever being consciously aware 
of this "inside" reason, just as it's 
possible to play a game of tennis 
without being aware of the need for 
mental discipline. A person who 
knows a few BASIC keywords can 
write a program, just as a person who 
knows a few tennis strokes can hit the 
ball. But to be good at it, you need to 
be more conscious of the inner pro- 
cesses that are going on as you play 
the game — or program the 
computer. 

So what is this mysterious "inner 
reason" that all computer programs 
have in common? Very simple, and 
not mysterious at all (though I do ad- 
mit to leading you on somewhat in 
the last couple of paragraphs). Every 
computer program is created to solve 
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a problem. And, except for the most 
trivial program, the overall problem 
that the program is created to solve 
can be broken down into smaller pro- 
blems, usually many "layers" deeps 
under the main one. If you plunge in- 
to writing a program without keeping 
this multi-layered problem-solving 
picture in mind, you are doomed to 
frustration and teeth-gnashing from 
the start. (I just love making sweep- 
ing generalizations hke that!) 

Look at it this way. Which of you, 
given the goal of building a house 
from the ground up, would take tools 
in hand and simply start working on 
whatever part of the house you hap- 
pened to think of first? (Would the 
young man in the back row who just 
raised his hand please leave quietly 
with the usher.) The general contrac- 
tor for such a construction project is 
paid to know exactly how all the sub- 
systems of the house relate to one 
another, and with that knowledge, 
can organize the job in a logical, effi- 
cient way. The task (or problem, if 
you will) is to build a house. In order 
to do that, the various specialized 
tasks (problems) are subcontracted to 
carpenters, electricians, masons, 
plumbers, and so on. Each of these 
specialized groups, in turn, employs 
people who have a variety of skills — 
who know the step-by-step 
breakdown of a given task such as in- 
stalling an electric outlet box. 

The problem of building a house, 
then, breaks down, after several 
"layers", into the problem of wiring 
an outlet box (x-number of times), 
nailing a stud in place (x-number of 
times), laying a concrete block 
(x-number of times), and so on. If the 
general contractor loses sight of the 
multiple layers of problems to be 
solved, there's trouble. The house 
might eventually get built, but a lot 
of unnecessary work is going to be 
done and undone along the way. And 
the end result, even if it keeps out the 
rain and has working switches and 
sinks, won't look too great inside the 
walls and under the carpeting. Not 
only that, but later additions and 
remodeling projects will be difficult 
and frustrating, since the original 
studs might not be on 16-inch centers 
and the white and black wires might 
be reversed in any given circuit. 



Am I getting too much of a 
strangle-hold on the obvious by ap- 
plying this to computer program- 
ming? An awful lot (I use the work 
"awful" intentionally) of programs 
are written by grabbing one's pro- 
gramming tools (the BASIC language 
and the computer keyboard) and 
starting work on whatever part of the 
program first comes to mind. (Yes, I 
confess, I do it too.) But more is 
needed to produce a program that 
not only has working switches, but 
also is relatively easy to create step- 
by-step, looks good inside the walls, 
and is amenable to later remodeling 
and additions. A "good" program is 
one that solves the main problem, 
and all the subproblems that it breaks 
down into, in a logical and pur- 
poseful way. Which implies that you, 
the Master Program Builder, have a 
good picture of all the layers of prob- 
lems before you enter a single word 
of BASIC code. 

Possibly Gust possibly) a simple ex- 
ample will help to pull all the 
preceding verbiage together: 

The Main Problem: To allow a 
person to type ten test scores into the 
computer, and receive a printout of 
the ten scores, their total, and their 
average value. 

Subproblem #1: To design a 
routine to accept entry of the ten 
scores. 

Subproblem #2: To design a 
routine to calculate the sum and 
average of the numbers. 

Subproblem #3: To design a 
routine to print out the results. 



together. For this program, there's 
the matter of the information that the 
first subroutine picks up being made 
available for the use of the other 
subroutines. It seems logical to set up 
an array where those numbers can be 
stored, and referred to as needed. 
With more complex problems, there 
are usually many more arrangements 
for this supervising routine to handle, 
but that's about all that needs to be 
done in this case. 

The functioning of the three sub- 
contractor subroutines will be very 
straightforward in this example. The 
first will most logically run through a 
loop ten times to receive the ten 




scores and store them in the array for 
future use. The second will retrieve 
the numbers, add them together, 
store their total, and compute and 
store their average. The third will 
retrieve the ten original numbers plus 
the two computed ones, and print 
them in an orderly format. 



formatting, the following finished 
program springs full-blown from the 
Master Programmer's mind. 



9 REM "GENERAL 
CONTRACTOR" CONTROL 
ROUTINE 

10 DIM S(10) 
20 GOSUB 100 
30 GOSUB 200 
40 GOSUB 300 
50 END 

99 REM "SUBCONTRACTOR' 
#1: INPUT SUBROUTINE 

100 FOR I = 1 TO 10 
110 PRINT "SCORE #";I; 
120 INPUT S(I) 

130 NEXT I 

140 RETURN 

199 REM 
"SUBCONTRACTOR" #2: 
COMPUTATION SUBROUTINE 



200 T = 

210 FOR I = 1 TO 10 

220 T = T -I- S(I) 

230 NEXT I 

240 A = T / 10 

250 RETURN 

299 REM 
"SUBCONTRACTOR" #3: 
PRINTOUT SUBROUTINE 



300 PRINT "TEST SCORES:" 
PRINT 

310 FOR I = 1 TO 10 
320 PRINT S(I) 
330 NEXT I 



This is simple enough to be done 
by what you might call a "home 
handyman" program (well, that's 
what I might call it), not really re- 
quiring the expertise and organiza- 
tion of a general contractor. But for 
the purposes of trying to apply all the 
good stuff I've written above, let's 
take the more expert approach 
anyway. The structure of the pro- 
gram will then be in four well-defined 
sections: One to take care of each of 
the above subproblems, plus one 
"general contractor" routine to 
organize and assign the various 
aspects of the work. 

The general contractor routine is 
responsible primarily for assigning 
work to the subcontractors. Usually 
it will also need to perform simple 
housekeeping functions, and to set 
up certain standards so that the 
subroutines will work effectively 



For complex programs, all those 
steps should normally be outlined on 
paper, including a running list of the 
chief variable names and their 
significance. That may sound like 
work, but it's a whole lot less work in 
the long run than a haphazard ap- 
proach. Would you build a house 
without an architect's drawing? 
(Would somebody PLEASE get that 
guy in the back row out of here...) 



Having done the right headwork 
and paperwork up to this point, then, 
the rest is almost pure fun. 
Translating the step-by-step problem- 
solving procedure into an actual com- 
puter program is called "coding". 
This is the step which is often called 
"programming", even though it is 
merely one step in the programming 
process (and NOT the most impor- 
tant one). After a few decisions about 
variable names, and input and output 
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340 PRINT : PRINT 
"TOTAL = ";T 



350 PRINT : PRINT 
"AVERAGE = ";A 
360 RETURN 



There, you see how logical it all is? 
And coding IS easy once all the 
preliminary programming work is 
done. In future columns I'll be 
discussing a lot of the fundamental 
and finer points of coding in BASIC, 
but I'll try not to let you forget about 
what's been covered in this premiere 
installment. It's great to be able to 
write BASIC code with flawless 
syntax. But far more important is the 
ability to dissect a problem into 
smaller and smaller parts until it 
almost codes itself. ^X 
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Ciller our uporld of 

ffliCrOCOfflpU(iA9«.. 

Discover our exciting world of microcomputing by reading SoftSide Magazine, the 

monthiy that heips you iearn to use your S-80, Apple or Atari more effectively and 

enjoyably. 

In each Issue you'll find helpful programming hints, follow regular columns by such 

well-known authors as Scott Adams, and explore the wide range of software and 

hardware for your particular needs. 

The focus of SoftSide is on lots of entertaining software — great games, 

simulations, graphics and educational programs all ready to type right into your 

computer, each one fully documented and carefully explained. Each month you'll 

find at least nine programs — one reader told us that he estimates the value of the 

software in a single issue of SoftSide at $18 — the price of a 12-issue subscription! 

Order your subscription to SoftSide today and become a part of our world of 

microcomputing! 



%ff5ii 



our YiCUipOiAl 
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CALL OUR TOLL FREE HOTLINE 

1-800-258-1790 

(IN NH CALL 673-5144) 





Here's my ticket to SoftSide's world of microcomputing. 
12 issues for only $18 ( a savings of 40% over cover price) 



D Check enclosed D Bill Me D Bill my Visa D MasterCard 
Card # Expiration date 



I own a(n) 
Name 



. computer 



Address 
City 



State 



Zip 



SoftSide Publications 6 South Street Milford, NH 03055 



SSS1 
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ABM 

Invader and Asteroids move over . . . 
ABM has arrived! Command your 
launcln sites to fire 1 and 5 kiloton 
anti-ballistic missiles (ABMs). Save 
the East Coast from increasingly 
fierce Enemy nuclear attack. Posi- 
tion your target crosshairs to blast 
the green streamers before they fire- 
ball your cities— or worse— split into 
multiple Vi/arhead MIRVs turning the 
entire coast into a thundering 
specter of destruction. Hi-res color 
graphics, sound, high score to date 
memop/, paddle or joystick control. 
On disk, requires Applesoft ROM. 
($24.95) 





DATA PLOT 

Easy editing features allow you to 
create and modify a wide variety of 
full color graphic representations of 
numerical information. Bar charts, 
including additive bars, as well as 
single and multiple line charts may 
be plotted individually or cumula- 
tively. Pie charts ore easily sliced. 
All figures may be output to a 
graphics printer or saved as hi-res 
"pictures" for dramatic full color 
recall as visual aids during presen- 
tations. Basic statistics are displayed 
automatically, On disk, requires 48 k 
and Applesoft ROM. ($59.95) 
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MY SIDE OF THE PAGE 




by Lance Micklus 

Getting a Bit Serious-Part 3 

This month, I'm going to switch 
gears while I still have my topic fresh 
in my mind. I wanted to include 
somewhere in this series a critique of 
how a program began, how it was 
developed, and finally, how it made 
out. I have such a program in mind. I 
have no way of knowing, at this 
point, if the program will be a huge 
success, a total flop, or will do fairly 
well. But I'm game, even if it means 
failing openly in public. 

WHERE THE IDEA CAME FROM 

On February 28th, yours truly tied 
the big knot with his girlfriend of 
four years. On the day of the wed- 
ding, Dianne and I didn't know ex- 
actly where we were going to go for 
our honeymoon except that we 
wanted to head south. The first night 
we stayed in Albany and then headed 
into New Jersey the next day. 

One of the places we had con- 
sidered going to was Atlantic City. 
Another was Washington, D.C. Both 
required getting on the Garden State 
Parkway, which happens to go right 
by my aunt's house in Clifton. This 
aunt had just gotten out of the 
hospital with back problems and 
didn't make it up to Vermont for the 
wedding, so she was glad to see us. 
We discussed our plans with her, my 
uncle, and one of my cousins and 
they all said "Go to Atlantic City." 
Both my uncle and my cousin had 
been there and told us that we'd have 
a blast. 

So Dianne and I left Clifton com- 
mitted to going to Atlantic City. I 
told Dianne I wanted to do this right 
— I didn't want to tell people we 
stayed at the Sleeping Bear Motel in 
Atlantic City. Rather, we were going 
to stay at one of the big-name hotels. 
We had the money and this was the 
only honeymoon we were going to 
get. 

When we got to the boardwalk, we 
eyed both Caesar's Boardwalk 
Regency and the newly opened 
Golden Nugget. We decided on 
Caesar's and checked in. 

On the television set in our room 
was one channel that had a twenty- 
minute tape, made at the hotel, which 
explained all of the casino games. 
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Neither Dianne or I knew anything 
about these games but we must have 
watched the tape four times before 
we left to get something to eat. We 
quickly got lost trying to find the 
restaurants and learned a simple 
secret: To go anywhere in the hotel, 
you must first go to the casino. From 
the casino you get to everything else. 

After eating, we decided it was 
time to check out the casino. I still 
don't believe I saw what I saw. It is 
an experience and that's all you can 
say about it. We walked around look- 
ing at all of the table games and then 
decided to blow away $11.00 in the 
slot machines. That didn't take long. 
Again, it was back to the tables to 
watch. 

At this point, my interest was 
focused mostly on craps. It is a game 
I knew almost nothing about. Two 
pictures come to mind, though. One 
is of a dice game in a back alley. The 
other is of James Bond with some 
sexy girl in Las Vegas (Diamonds Are 
Forever). 

By the following morning, Dianne 
and I felt we hadn't taken it all in yet. 
So, we decided to stay for another 
day, walk the boardwalk down to 
The Golden Nugget, and see what 
they had there. What they had, 
among other things, were nickel slot 
machines. 

So that night we went out of our 
way to look in our own casino at 
Caesar's to find nickle slot machines. 
Sure enough, we found them and 
together blew away $12.00, but this 
time it took an hour for both of us to 
do it. I do recall feeling stupid put- 
ting my little nickel in the bandit and 
pulling the lever so many times. It 
just seemed so dumb. 

Well after that we walked around 
the casino again and I stopped at one 
of the craps tables. This game really 
fascinated me. 1 noted that the table 
number was 13, and 13 is Dianne's 
lucky number. We almost decided to 
buy some chips and play but for some 
reason we didn't. Just as well or the 
story might have ended here. 

Instead we figured we'd just buy a 
craps layout and a toy slot machine 
to take home with us. So, that's 
where $100.00 of our gambling 
money went — in souveniers. 

We left the hotel the following day 
but the experience left several strong 
impressions on me. 

During our stay, I must have 
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watched the gambling TV show 
about twenty times. It turns out that 
in all of these casino games, no 
gambling skill is required by the 
dealer. The rules of the game 
predetermine exactly what he will do 
in any situation. Indeed, no matter 
what the casino game, the dealer is 
nothing more than a machine — like 
a computer. 

A few days after we got home we 
discovered the toy slot machine we 
bought for $75.00 was also sold by 
Service Merchandise here in Burl- 
ington, Vermont, for $49.95 (list 
price is $65.00). In Atlantic City we 
were told that these toy slot machines 
could only be bought in Atlantic City 
and Las Vegas. Later, we would also 
find out that the odds shown on the 
craps layout we bought were wrong. 

The craps game was a big hit with 
my son, Tony (by my first marriage). 
Typical of him, he ran the bank 
broke. But Dianne had a another 
comment about craps. She knew that 
it was only a matter of time before I 
would have a computer version of 
craps. The girl didn't marry a 
stranger, you know. She understands 
how this mind of mine works. 

Well, she was right, but I had a lot 
of other projects to work on so I 
looked at the Radio Shack " Casino" 
package thinking I could just buy 
something already made up. Forget 
it. That's not Hke casino craps. I 
knew how to write the program and 
so I sat down one evening and began 
working on the code. 

CREATING A PROGRAM FROM 
SQUARE ONE 

The color computer was the perfect 
choice. It is very portable so I could 
bring it over to the house anytime we 
wanted to play at home. Originally, I 
was also going to make use of the 
joysticks to select where the bets 
would be placed. Later, I changed my 
mind. Finally, the thought occurred 
to me that I could take the finished 
game and blow it over to the Model I 
using "ST80-in" to simulate a 
lineprinter. The game logic would 
still be valid. Only the graphics and 
sound effects would have to be 
changed. The sound effects would be 
easy to implement; I'd just rob the 
routines out of Star Trek III. After 
getting it running on the Model I, it 
should also work on the Model III. 



And, if there isn't a lot involved, I 
could then blow the code over the 
Model II for my game package. Also, 
with a little more effort, I might be 
able to talk The Source or MicroNET 
into putting it on line for their users' 
enjoyment. 

In Part 2 of this series, I had men- 
tioned the advantages of the profes- 
sional over the amateur. One of those 
advantages is the fact that I can bring 
up a product on several machines, 
whereas the amateur can usually only 
get it running on one. The above hne 
of thinking makes that point rather 
well. 

Before I write any code, I always 
like to have a plan of attack. The 
game of craps has two parts, the first 
part of which is the betting. The sec- 
ond part consists of rolling the dice 
and paying off the bets. My thinking 
on the total programming concept of 
the game wasn't clear yet. However, 
the dice roll would be a must. It could 
be written by itself and then the other 
parts of the program, no matter how 
they were done, could just interface 
to it. 

In the real casino craps, the 
shooter shakes the dice and throws 
them across the table. The dice must 
bounce off the opposite side of the 
table and roll back, landing flat when 
they stop. I wanted to approximate 
that action, but not to the extent that 
it became my whole program. My 
dice stay stationary on the screen but 
keep changing face numbers to 
simulate the shaking. When the 
ENTER key is pressed, the dice 
quickly roll toward the top of the 
screen where they hit a line and start 
bouncing back. They keep rolling 
toward the bottom of the screen, 
stopping at some random point. It 
looked good. 

The next part took a lot of plan- 
ning. The fun of craps is in all of the 
options you have to make bets. This 
was the feature sadly lacking in the 
Radio Shack "Casino" package. To 
do this effectively, the entire betting 
field must be visible to the player 
showing all of his bets. Using graph 
paper, I worked out a playing field 
that would show all of the bets at 
once for each player. I then im- 
plemented the routine by building 
each line with FOR-NEXT loops. In 
the final version, I figured I would 
just put the graphics and text in 
PRINT @ statements which would 
save me a lot of memory. 

After the playing field was built, 
the next step was to consider how the 
computer would handle bets and pay 
them off. I often tell people who are 
serious about programming in a high 



level language like BASIC for 
FORTRAN that the most important 
tools they have are arrays. Arrays are 
your friends and they can do miracles 
for you. If you can't handle arrays, 
you will never be able to work with 
complicated programs. 

I decided to use a two-dimensional 
array. The second array element 
would indicate which player, while 
the type of bet would be stored in a 
logical position indicated by the first 
element of the array. This would 
allow the same win/lose logic to work 
with any bet no matter what it was. 
At the same time, several people 
could play the game and the com- 
puter would be able to keep each 
player's bets straight. 

Now that I had the array, I began 
to develop a routine to display the 
bets. The concept was to display the 
bet field and then overwrite the 
screen with the betting information. 
This routine was tested by simply 
force-feeding numbers into the array 
to make sure they were displayed in 
the correct place. 

This now left two unfinished sec- 
tions — one to take bets and another 
to pay them. I decided to write 
enough code for the computer to pay 
off only three types of bets — ANY 
7, ANY 3, and ANY 11. These bets 
are simple. The dice are rolled and if 
they come up with 7s, then you pay 
any 7 five times what he bet. Then I 
wrote enough code to make the above 
three bets from the keyboard. 

Now I had the program running 
enough to see how it was working 
out. I was very happy so I added the 
rest of the bet and payoff logic to 
finish the game. Then 1 began to play 
it for while. 

AN EVEN BETTER IDEA 

A day or two later, Dianne and I 
were talking and she mentioned that 
she had read about some guy who 
figured out a way to beat the house. 
Now, none of the casinos would let 
him play. Personally, I didn't think it 
could be done. Even if a computer 
was doing the betting, it couldn't be 
done. Or could it? Well, how would 
the computer know where to make 
the bets and for how much? There's 
got to be a way to do it. I was having 
incredible luck at this game. Maybe I 
could get the computer to play also. 
Features Hke that help to sell the pro- 
gram. 

So, the great mind spun its wheels 

to try to find a way for the computer 

to make bets also. The trick was to 

figure the odds and to pick the 

continued on next page 
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Chris Freund 




For the thousands who 
have enjoyed X-Wing Fighter, 
X-Wing II presents a totally 
new element in the game! 

You are the pilot of an 
X-Wing fighter .... Your 
Mission, Destroy the Death 
Star! 



Where X-Wing I left Death 
Star looming on the screen, 
X-Wing II lets you guide your 
fighter into the trench, find 
the exhaust port, aim and 
fire — all the while avoiding 
enemy fighters. Excellent 
graphics, 12 levels of play, 
and extensive INKEY$ 
commands make this one of 
our most exciting "real time" 
games. 



S-80 16K Cassette 



$9.95 



T5€:HP1RDSID€ 

6 Soulh St .Millord, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 



25 



continued from previous page 
number most likely to come up. The 
more likely the number, the higher 
the bet. Since dice produce random 
numbers, the occurrence of any 
number should be evenly spread out 
according to the odds. 

1 finally decided to go with a 
history stack. There are only 36 ways 
dice can land. In theory, in 36 rolls, 
the dice will land once each way. 
Thus, the history stack would store 
each roll in the bottom and push all 
the other combinations up one. 
When a combination came close to 
the top, that meant it was time for 
that combination to come up again. 

The result was a process by which 
the computer could bet with some 
kind of logic. The trick was to prime 
the history stack. Originally, I ran- 
domly loaded the history stack with 
numbers so the computer had some 
data to work with and bet. I had to 
do that to check out its betting logic. 
The problem was this: Suppose the 
first number in the top of the stack, 
even randomly mixed, is a two. Then 
the computer will start betting 
everything it owns on the two's for 
no good reason. It should only do 
that if two has failed to come up for a 
long time. With no history in the 
stack, the computer didn't know 




recordings 



duplicating service 

307 West Main Street 
Maple Shade, NJ 08062 

(609)667-1667 



O • AMP "Data-settle" blank 
cassettes for digital use 

© • Cassette Storage Boxes 

• Cassette Labels - 

Custom printing & blank 

•Custonn Record Album 

production fronn your tapes 

© • Stereo and Spoken Word 
cassette duplication 

Call or write to: 




for more Information. 

All cassette work at 
AMPR.&D. is custom work 
to fit your needs. 
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what to do. So, it wouldn't bet at all 
for a while. After some experimen- 
ting, I found that it worked best if the 
stack was loaded with only six ran- 
dom numbers. This was enough to 
work with while keeping the integrity 
of the system. 

One of the beautiful things about 
BASIC is the fact that you can 
BREAK the program at any time so 
you can change key variables to make 
sure things are working the way you 
expected them to. For example: Put- 
ting a two at the top of the history 
stack should cause the computer to 
bet heavily on ANY 2, ANY CRAPS, 
and DON'T PASS/COME. These 
are all-powerful tools that make 
some languages better than others for 
doing a job. 

Nearing completion of the pro- 
gram, I decided it needed a name that 
was better than just CRAPS. Joking- 
ly, I told Dianne one day that I was 
going to call it "The Mean Crap 
Machine". We had a good laugh over 
that, but some dealers might get tense 
over that name. So, I added the "s" 
and called it "The Mean Craps 
Machine"™ to tie it in with "The 
Mean Checkers Machine"™. If you 
build a name, cash in on it. 

The final version is done but it is 
running on a 16K Standard BASIC 
machine since my Extended Color 
BASIC chips haven't come in yet. 
When they do, I'll make whatever 
changes are needed to get it working 
in Extended Color BASIC, the 
language it will actually be sold for. 

IS ANYBODY REALLY GOING 
TO BUY IT? 

Let's take a look at where things 
stand now. 

So far, several people have written 
computer craps programs and 
nobody seems to have shaken the 
Earth. I believe this is because these 
programs did not fully implement all 
of the betting options in the game. It 
is the betting options that make the 
action exciting. 

On the plus side is the fact that 
many casinos have proven that craps 
is a fascinating game to play. So 
fascinating, people will spend for- 
tunes to play it. Not very many peo- 
ple are willing to risk $100,000 on 
"Star Trek" games. 

Another consideration is that I 
talked to a number of people about 
craps and found that they shared the 
same interest in the game as I did. 
Almost nobody knew much about the 
game but just about everybody 
seemed to agree that a good craps 
game was not available for 
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microcomputers. There's no point 
doing what's already been done and 
done well. 

Something to think about is the 
fact that while there may not be very 
many S-80 Color Computers out 
there right now, there also isn't much 
competition, either. I'm gambling 
(no pun intended) that the Color 
Computer will sell well. I'm backing 
my bet up with the fact that the 
Model I and Model III are plentiful 
so I have at least one other market 
for the program which is known to be 
solid. 

I spent a lot more time on "The 
Mean Craps Machine"™ than I had 
originally intended to. I figure I need 
to make $2000 to say it paid even 
money. If it sells for $14.95 and I get 
a 15% royalty on each sale, then I 
will need to sell 893 copies of the pro- 
gram. A good selling program on the 
Model I/III sells about 500 copies. 
Considering that the Color Computer 
market is small right now, you can 
see I'm in trouble. However, the pre- 
sent lack of competition right now 
might give me a bigger market share 
to make up for it. 

If I add the additional time to 
bring the program up on the Model 
I/III, then I guess I would have to see 
it make $3000 to call it an even 
payoff. That would mean I'd have to 
sell 1340 of these craps games. I'm 
still in trouble. 

A more realistic figure would be 
250 on the Color Computer and 500 
for the Model I/III. If I get a 15% 
royalty, then working the numbers 
the other way around, I'd have to sell 
"The Mean Craps Machine"™ for 
roughly $26.75. But that price is too 
high and people will complain. Of 
course, I might not sell any. Or, I 
might sell 3,000 of them. The whole 
thing is a risk. 

Now, I think you see a fundamen- 
tal problem with the pricing in com- 
puter software. The reason nobody's 
written a good craps game is because 
there probably isn't enough money in 
it to make it worth the effort. The on- 
ly way such a program can be 
brought into existence is for 
somebody to do it anyway, no matter 
what, and then try to cash in on it. 
This is not the way to stimulate pro- 
duct development. 

In future articles, I'll keep you 
posted on what's happening with 
"The Mean Craps Machine"™ so we 
can all keep track of it. But, if 
nothing else, I hope the experience 
I've shared with you this time will 
prove to be valuable to both of us. 
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lUVEWE 

GOrAPROOUUI 

FORYOUIN'81 

Attend the biggest public computer sliows in tlie country. 
Each show has 100,000 square feet of display space fea- 
turing over 50 Million Dollars worth of software and hard- 
ware for business, industry, government, education, home 
and personal use. 
You'll see computers costing $150 to $250,000 including 
mini and micro computers, software, graphics, data and word 
processing equipment, telecommunications, office machines, 
electronic typewriters, peripheral equipment, supplies and com- 
puter services. 

All the major names are there including; IBM, Wang, DEC, 
Xerox, Burroughs, Data General, QanteL Nixdorf, NEC, Radio 
Shacl<, Heathkit, Apple, RCA, Vector Graphic, and Commo- 
dore Pet. Plus, computerized video games, robots, com- 
puter art, electronic gadgetry and computer music to 
entertain, enthrall and educate kids, spouses and peo- 
ple who don't know a program from a memory disk. 
Don't miss the Coming Of The New Computers- 
Show Up For The Show that mixes business with 
pleasure. Admission is $5 for adults and $2 for chil- 
dren under 12 when accompanied by an adult. 



Ticket Information 

Send $5 per person with the name of the show 
you will attend to National Computer Shows, 
824 Boylston Street. Chestnut Hill, Mass. 02167. 
Tel. 617 739 2000. Tickets can also be purchased 
at the show. 
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ATLANTA 
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RALPH McGILL BLVD 

THURS-SUN 
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10 AM TO 7 PM 
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KUDOS AND KLUNKERS 




by Wynne Keller 

Radio Shack's Model III has many 
improvements over the Model I. 
These hardware changes have re- 
eived considerable media attention, 
but the changes in the DOS have not 
been discussed in any detail. This ar- 
ticle reviews some of the new com- 
mands: What they are supposed to 
do, and whether they function as pro- 
mised. Of necessity, commands 
which have problems will receive 
more attention. This should not be 
construed to mean the DOS is full of 
"bugs". On the contrary, it is on the 
whole a very useful and fine DOS. 

DOS COMMANDS : 

HELP 

Perhaps the most welcome new 
command is HELP. Typing this, plus 
the name of the command in ques- 
tion, gives an explanation of correct 
syntax and use, thereby solving the 
frustration of looking up minor 
details in the manual. HELP is 
available for all DOS library 
commands. 



BUILD, DO, AND PAUSE 



BUILD, DO and PAUSE are used 
to create turnkey systems such that 
the inexperienced user need only type 
in the date at system startup; the rest 
will be automatic. BUILD creates a 
group of commands to be executed, 
such as pausing while disks are in- 
serted, booting BASIC, answering 
the file number and memory size 
question, and running the desired 
program. This BUILD file is given a 
name, for example, "STARTER". 
Then the command AUTO DO 
STARTER alters the disk such that 
the commands in STARTER will be 
executed automatically whenever the 
reset button is pressed. The manual 
doesn't explain how to get past the 
two questions which are always asked 
when BASIC is requested: "How 
many files?" and "Memory size?". 
This is done by pressing [ENTER] 
twice (assuming you wish default 
values) while BUILDing. For exam- 
ple, in DOS Ready, type BUILD 
STARTER. For the next input type 
BASIC [ENTER]. Then [ENTER] 
twice more for the next two prompts. 
28 



DUAL 



There is a new screen print func- 
tion, similar to the JKL of 
NEWDOS. It is implemented with 
shift + down arrow + asterisk, and 
may be used in both DOS and 
BASIC. DUAL is a DOS command 
which provides printer and screen 
output simultaneously, each time the 
user presses enter. Thus DUAL prints 
the operator interaction as it occurs, 
a line at a time, rather than a whole 
screen. 

FORMS 

The new FORMS control had more 
promise than it delivered. The 
manual seemed to imply that it would 
be possible to set printer line width 
and paper length with FORMS, 
thereby avoiding the problem of 




TRS-80 Model III 



LLIST printing on the tear lines of 
pages. Unfortunately, only the width 
may be controlled in LLIST. The 
FORMS command will keep track of 
the number of carriage returns, and 
may be PEEKed during program 
operation to see if it is time to ad- 
vance to the next page, at which point 
CHR$(12) (Top of Form) may be 
used. However it is not possible to 
PEEK at the forms line number dur- 
ing an LLIST operation, so program 
printouts are still out of control. 

FREE 

The FREE command has been 
enhanced to show a map of free 
space, rather than just the number of 
granules. This is useful for those who 
can never remember how many bytes 
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are in a granule, and simply want an 
answer to the question "Is the disk 
almost full?". The FREE map can 
also be output to the printer. 

It is now possible to LIST the con- 
tents of a file on screen or printer, 
with optional slow output and ASCII 
format. This is extremely useful for 
examining files whose contents you 
can no longer remember, or for view- 
ing damaged files. 

MASTER 

MASTER allows one disk drive to 
be specified as the Read/Write drive. 
When a master drive is specified, all 
attempts to read or write a file start at 
that drive, bypassing lower numbered 
drives. There is also a new way to 
write-protect a drive. Using the WP 
command, a single drive may be pro- 
tected from writing. Unfortunately 
this protection simply stops the at- 
tempt to write and produces an error. 
The DOS does not try to write on 
another drive. However, write- 
protect tabs, when placed on a disk to 
be protected, will force the writing to 
another disk. This is an improvement 
over the Model I TRSDOS. 

PATCH 

PATCH allows minor corrections 
in the contents of a disk file. This is 
extremely helpful to Machine 
Language programmers, and will 
also be used by Radio Shack to pro- 
vide changes for bugs in TRSDOS. 

PURGE 

PURGE runs through the visible 
user files on the disk, prints their 
names individually on screen, and 
asks if the file is to be killed. This is a 
great improvement over the old 
system of typing each name one at a 
time. Purge can also kill system files, 
but will not present them one at a 
time — it kills them all. 

TAPE 

TAPE allows Machine Language 
programs to be copied from tape to 
RAM or disk, or from disk to tape. 
The manual does not mention that 
this function is for Machine Code 
programs only. This feature removes 
the necessity of using special utilities 
to backup such programs. 



TIME 

The TIME function has been im- 
proved. It can be displayed on screen 
at all times, if desired, in the upper 
right-hand corner. It no longer 
destroys cassette operations, as the 
clock shuts itself off during I/O. 



DIRECTORY 

There is a problem with the DIRec- 
tory command. It is supposed to 
show invisible and system files when 
requested. However, it only shows in- 
visible files if system files are re- 
quested, and it never shows system 
files at all. The rest of the directory 
works fine; user files are presented 
clearly with helpful information such 
as date created, size of file, protec- 
tion status, etc. One idiosyncracy of 
the DIR command is that to prevent 
scrolling, press the @ key only, not 
shift @ as you would during a 
BASIC program LIST. 



ROUTE 

ROUTE is supposed to allow I/O 
to be sent to various devices, such as 
printer, display, or RS-232. Unfor- 
tunately it freezes the keyboard and 
does not function. A phone call to 
the Radio Shack hotline brought the 
information that there are serious 
problems with ROUTE. Presumably 
they will be corrected in future ver- 
sions of the DOS. This feature is also 
available in the cassette BASIC of the 
Model III, and appears to function 
perfectly there. 




BASIC COMMANDS: 

There are many new CMD com- 
mands used from BASIC which are 
welcome additions. A few are disap- 
pointments. The greatest disappoint- 
ment was CMD"X" which is a cross- 
reference utility to help BASIC pro- 
grammers keep track of variables and 
program flow. It is necessary to re- 
quest each variable or function one at 
a time, unlike NEWDOS where the 
entire program can be cross-refer- 
enced with one command. Also, out- 
put is supposed to go to the printer 
automatically if one is available, but 
it does not. To solve this, use 
CMD"Z" which is equivalent to 
DUAL of DOS mode: It prints all 
screen interaction as hard copy. 

CMD'C" 

A packing routine, CMD"C", 
worked well with one flaw. Using this 
command, it is possible to delete 
REM lines or extra spaces, or both, 
from a BASIC program. Line 
numbers and line packing are unaf- 
fected. The drawback is that if space 
deletion alone is requested, it will 
also delete spaces in REM lines, 
rather than leaving them alone as it 
should. This ruins the appearance of 
program comments, titles, and 
credits. The solution is to add quota- 
tion marks to all REM Hues to pro- 
tect them from compression. 

CMD"0" 

The new sort feature, CMD"0" 
provides Machine Code sorting 
speed. The drawback is that only 
single-dimension arrays can be used. 
This feature sorted 900 records 
(average of 5.5 bytes each) in 40 



seconds. It is a welcome addition to 
BASIC but very limited in applica- 
tion as most programs need at least 
two dimensions for arrays. 

CMD"I" 

CMD "I" is supposed to allow 
TRSDOS commands to be executed 
from BASIC without disturbing 
BASIC if possible. However, we 
tested it with many commands and 
could not find one which left BASIC 
intact. Therefore the only merit to 
this command appears to be the abili- 
ty to write a TRSDOS command as 
one statement from BASIC. Assume 
it will destroy your resident program. 

An important new file handling 
feature allows variable length files of 
up to 256 bytes per record, for Ran- 
dom Access storage. Testing this 
feature, we were unable to make it 
function if we used a variable to 
specify file length. Hours later the 
problem was found: When fielding, 
any variable used to specify the 
number of bytes for a label must have 
the % sign (integer sign) after the 
variable. It is not possible to use 
DEFINT instead as the DOS does not 
recognize DEFINT in this situation. 
This feature can help programmers 
save a lot of disk space when file size 
is not uniform. 

Although there are many more 
features which could be mentioned, 
these are sufficient to show the great 
versatility of the Model III. The 
review of fixes for DOS problems 
may save you some time when your 
own Model III arrives. Eventually 
new versions of TRSDOS will un- 
doubtedly be released and many of 
these problems will disappear. ^^ 
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HAS THE RIGHT TOOL FOR THE JOB! 



ST AD 



Unlock the power of the Z-80 with STAD (Symbolic Trace and 

Debug) a powerful monitor with special Debugging. Single step 

through the Machine Language programs. For tape and disk 

systems. 

16-48K on one S-flO Cassette i26-STA0 $24.95 




6 South St .Millord. NH 03055 (603)673-5144 
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Z80ZAPCMD 

powerful disk modification utility In Machine Language allows you 
to READ, DISPLAY, MODIFY, WRITE, and COMPARE disk sectors. 
It will calculate Hash Index Codes. You can recover killed disk 
files. Search tor a byte and have It Identified with a flashing cursor. 
Do disk backups, apply patches and fixes, and explore your disk. 
Instruction manual Included. 
S-80 16K Disk Machine Language #26-ZAP $29.95 



TOLL FREE OUT-OF-STATE 1-800-258-1790 
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TRIVIA 




by Michael Bendik 

"Trivia is an Apple program re- 
quiring Applesoft and 16K RAM. 




"Trivia" is an excellent Hi-Res 
graphics art program for a number of 
reasons. The program is comprised 
of six segments which together run 
for approximately 12 minutes. Each 
segment has continuous motion, and 
the second and last segments contain 
random plotting variables. The pro- 
gram itself is an endless loop, restart- 
ing itself after the full cycle of 
displays. 

One of the best features of 
"Trivia" is the internal structure of 
the program. A quick glance at the 
listing shows a logically structured 
program, where the flow of control 
from one section to another is clear 



and straightforward. There are six 
separate subroutines for the six basic 
parts of the program, and other 
subroutines could be easily added for 
future expansion. Multiple-statement 
lines are used very sparingly, making 
each line easy to follow. Although 
this takes up slightly more memory 
(there are five bytes of "overhead" 
for each program line), it does help to 
keep things tidy when memory space 
is not critical. 

The displays themselves are created 
using just a few simple shapes in 
creative ways, using the Apple's fast 
DRAW command and its associated 
SCALE and ROTation possibilities. 
The author makes good use of the 
screen wrap-around characteristic of 
the DRAW command, to produce 
symmetrical patterns at opposite 
edges and corners of the high- 
resolution screen. His techniques in- 
vite others of you imaginative people 
out there to add your own simple- 
but-elegant designs. 

Although the program does not re- 
quire user input, it is necessary to be 
familiar with the color and brightness 
settings of your TV or monitor. Set- 
ting the brightness all the way down 
and the color to its maximum, for ex- 
ample, gives a nice irridescent ap- 
pearance. You'll want to do some ex- 
perimenting for different effects. 



SHAPE TABLE 

Shape 1 : Box without corners. 
Shape 2: Square. 
Shape 3: Cross. 
Shape 4: Line. 

VARIABLES 

A, BLP, CL, CR, HlC, H2C, LP, 
LX, RB, STP, WT, XLP, YLP: 
Misc. loops, color variables, and 
counters. 

DD: Checks when to leave dandelion 
routine. 

EN: Used with the shape table. 
F: Used as a flag. 

HBC: Randomly generated color 
variable. 
HC: Hcolor. 

RR: Random rotation variable. 
SC: Scale variable. 
SH: Shape number in table. 
TB: Shape table data. 
TM: Time delays. 

X: Misc. loops and horizontal draw- 
ing position. 

XPT: Random horizontal plotting 
position. 

XX: Horizontal plotting position. 
Y: Vertical drawing position. 
YPT: Random vertical plotting 
position. 
YY: Vertical plotting position. 



100 TEXT : HO«E 


250 GOSUe 5000 


Hurricane or spiral shape 


110 FOR X = 1 TO lO: PRINT ! NEXT 


260 GOSUe 6000 
270 nORIIB 7000 


sinulation* 


120 !DHttl)= 1 


280 HGK2 : GOTO 100 




130 PRINT " APPLE T 




2000 SH = 1 


R I V I A I" 




2010 CR = 7 


m PRINT ! PRINT " 


Data for the four shapes of the 


2020 HCOLOR= CR 


BY M.BENDIK" 


shape table. 


2030 LP = 35:X = 139:Y = 96 


150 SfBED= 255 




2040 FOR TX = 1 TO 2500'. NEXT TM 


lAO FOR X = 1 TO 3000 : NEXT 


1000 DATA 4 




170 FOR X = 1 TO 24: PRINT 


1010 DATA 


2050 GOSIIR 2130 


180 FOR A = 1 TO 70: NEXT A 


1020 DATA 10,0,20,0,23,0»32,0 


2060 LP = 70:X = OJY = 95 


190 NEXTX 


1030 DATA 18,63,32,100,45,21,54, 


2070 FOR TM = 1 TO 2500*. NEXT TM 


in HOME 


30,7,0 






1040 DATA 44,62,0 


2080 Gusueziso 




1050 DATA 58,60,44,44,53,53,55,7 


2090 LP = 6o:x = o:y = 


A separate subroutine is used for 


,0 


2100 FOR TM = 1 TO 2500! NEXT TM 


each of the six basic drawing 


1060 DATA 36,36,4,0 




routines. 


1070 DATA 


2110 GUSUe 2130 




1080 POKE 232,0 : POKE 233,3 


2120 GOTO 2280 




1090 RESTORE 


2130 HGk2 


210 ROaiB 1000 


1100 FOR TB = 768 TO 803 


2140 FOR R = 1 TO 1000! NEXT R 


220 GOSUB 2000 


1110 READ EN! POKE TB,EN 


2150 FOR R = 1 TO LP 


230 \31BB 3000 


1,120 NEXT TB 


2160 ROT=R 


210 rmSIIF: 1000 


1130 RETURN 


2170 SCALE=R 



30 
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2180 


DRM< SH AT X»Y 




2190 


NEXTR 




2200 


FOR R = 1 TO 10005 


NEHR 


2210 


FOR R = 1 TO LP 




2220 


ROT=R 




2230 


SCAL£=R 




2210 


XDRAH SH AT X,Y 




2250 


NEXT R 




2260 


FOR R = 1 TO IflOO: 


NEXTR 


2270 


RETURN 




2280 


RETURN 




Sunburst or equalizer type 


drauin9s> 




3000 


HGR2 




3010 


FOR SP = 1 TO 3 




3020 


IF RB = 2 THEN RB = 
7: GOTO 3060 


= 5:ht = 


3030 


FRB = 6TJ€Nlffi: 
3: GOTO 3060 


= 2:ht = 


3040 


FRB = 5THENRB = 
7: GOTO 3060 


= 6:WT = 


3050 RB = 5IHT = 7 




3060 


FOR TM = 1 TO 2000 


NEXTTM 


3070 CL = 99 




3880 X = o:y = 




3090 XX = 2795YY = 191 





3100 XPT = INT (279 X RND (D) 

3110 YPT = INT (191 I RND (D) 

3120 FOR XLP = TO 279 

3130 HPLOT XPT,YPT TO X,Y 

3110 HPLOT XPT,YPT TO XX,YY 

3150 X = X + 1 

3160 XX = XX - 1 

3170 F CL < 28 GOTO 3220 

3180 F HC = HT THEN HC = RB: GOTO 

3200 
3190 HC = HT; GOTO 3200 
3200 HCOLOR= HC 
3210 CL = 
3220 CL = CL + 1 
3230 NEXT XLP 
3210 X = 2795Y = 1 
3250 XX = 05YY = 190 

3260 CL = 99 

3270 FOR YLP = 1 TO 190 

3280 HPLOT XPT,YPT TO X,Y 

3290 HPLOT XPT.YPT TO XX,YY 

3300 Y = Y + 1 

3310 YY = YY - 1 

3320 F CL < 19 GOTO 3370 

3330 F HC = HT THEN HC = RB: GOTO 

3350 
3310 HC = HT: goto 3350 
3350 HCOLOR= HC 
3360 CL = 
3370 CL = CL + 1 
3380 NEXT YLP 



3390 FOR TM = 1 TO 25005 NEXT T« 
3100 NEXT STP 
3110 RETUrai 



Hanipulation of box shape* 

1080 HGR2 

1010 FOR TM = 1 TO 10005 NEXT TM 

1020 SH = 2 

1030 HC = 1 

1010 FOR BLP = 1 TO 5 

1050 HC = HC + 1 

1060 GOSUB1100 

1070 FOR TM = 1 TO 15005 NEXT TM 

1080 NEXT BLP 

1090 GOTO 1210 

1100 F HC = 1 THEN HC = 5 

1110 HCOLOR= HC 

1128 FOR R = 1 TO 87 

1130 ROT= R 

1110 SCM^= R 

1150 DRAH SH AT 110,80 

1160 FOR TM = 1 TO 125 NEXT TM 

1170 l€XT R 

1180 FOR R = 88 TO 171 

1190 ROT= R5 SCALE= 175 - R 

1200 DRMJ SH AT 110,80 

continued on next page 
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by David T. Grjy 



All user communication with COLUMN CALCULATOR 
uses FLASH, the line input/editor routine. This enables 
the user to not only key in instructions, but to edit errors 
or data as well. 
S-80, 32K disk .... #26-coLC $39.95 



51/23 401 IJBM m 
5^3 31? ]/?D /I 
lb?& % 156 
W 99 



3fe^ 



s 




COLUMN CALCULATOR is a "word processor for 
numbers, ' ' a number processor designed to be used like 
a calculator. But it can handle large blocks of information 
as if handling one number at a time. The work space can 
be thought of as a large matrix with rows and columns 
much like an accountant's spreadsheet. Data can be easi- 
ly entered into columns; and the columns can then be 
moved around. Columns can be overlaid from an existing 
data file on disk. One column can be added, subtracted, 
multiplied, divided, or raised to a power of another and 
the results put in another column. Columns can be com- 
pared to one another. Columns can be totalled, or set with 
a constant, and any column can be sorted, carrying the 
rest of the columns with it. A predefined function can be 



T5€:HnRDSID€ 

6 South Sl.Millord. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 




defined, thereby preprogramming the worksheet. 

I he statistical section provides analysis of the data. Ttie 
analysis includes simple statistics, linear regression, sim- 
ple correlation, histogram and the T-test. 

The information can be printed out on the line-printer in 
a compressed format at any stage in the development of a 
data base. Thus, it can be used as a finished report or as 
a copy of the worksheet to permit the filling in of addi- 
tional data for later entry into the data base. The data base 
can be saved on disk and recalled at a later date for 
modification or for generating a report. Any column in a 
file on disk can be referenced and added to the current 
worksheet. 
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continued from previous page 


6130 GOTO 6360 


7220 GOTO 7250 




6110 HGR2 : FOR TM = 1 TO 1500: NEXT 


7230 FRR<75THENRR = RR + 7 


1210 FOR TM = 1 TO 125 NEXT TM 


TM 


5 


1220 NEXTR 


6150 FOR LP = 1 TO LX STEP 2 


7210 GOTO 7250 


1230 RETURN 


6160 SC = LP 


7250 HCOLOR= HBC: HPLOT 0,0 


1210 RETURN 


6170 HCOLOR=H1C 


7260 mi. 62151 




6180 GUSUe 6220 


7270 Hmi.OR= HC 


Hanipulstion of cross shape t 


6190 NEXT LP 


7280 FOR R = 1 TO RR 




6200 FOR TM = 1 TO 20005 NEXT TM 


7290 ROT=R 


5000 Hl^ : ROT= 


6210 RETURN 


7300 SD1E=R 


5010 FOR TM = 1 TO 1500J NEH TM 


6220 FOR R = 1 TO 61 


7310 DRAM SC AT X,Y 
7320 NEXT R 


5020 FOR BLP = 1 TO 6 


6230 ROT= R 


7330 FOR TM = 1 TO 1500t NEXT TM 


5030 IF BLP = 1 THEN X = 0:Y = 

: GOTO 5070 
5010 F HJ> = 2 THEN X = OJY = 1 

25: GOTO 5070 


6210 SCAL£= SC 
6250 DRAM SH AT X,Y 
6260 NEXT R 

6270 F DO = 1 THEN GOTO 6350 
6280 F LP = LX - 1 THEN GOTO 6 
350 


7310 NEXT BLP 
7350 RETURN 


5050 F BLP = 3 THEN X = HOtY = 




O: GOTO 5070 


APPLE ONE LINERS 




6290 HminR=H2C 




5060 F BLP = 1 THEN X = llOtY = 


6300 FOR R = 1 TO 61 


Applesoft 


125: GOTO 5070 


6310 ROT=R 


1 HGR2 t FOR I = TO 279:C = C + 


5070 HC0L0R=5 


6320 SCALE=SC 


i:C = C- (6 X INT (C / 6)) 


5080 SH = 3 


6330 DRAM SH AT X,Y 


! HCOLOR- C; HPLOT 1,0 TO 27 


5090 GOSUB5120 


6310 NEXT R 


9 - 1,191! NEXT i: FOR I = 


5100 NEXT BLP 


6350 RETl«N 


TO m;c = c + i:c = c - (6 


5110 GOTO 5270 


6360 RETURN 


X INT (C / 6)): HCOLOR- CJ 


5120 FOR R = 1 TO 60 STEP 2 




HflOT 0,191 - I TO 279,1! NEXT 


5130 SCALE= R 


Manipulation of various 


I! END 


5110 DRAW SH AT X,Y 


back.qrounds. 


Mark Johnson 


5150 NEXT R 

5160 F BLP < > 6 THEN GOTO 51 
90 


7800 FOR BLP = 1 TO 25 
7010 HGR2 


Minneapolis, MN 
Applesoft 


5170 FORTM = 1 TO 1000 : NEXT TM 
5180 GOTO 5250 
5190 HCOL0R= 2 


7020 HBC = INT (8 x m (D) 
7030 HC = INT (8 I m> (D) 
7010 F HBC = HC THEN GOTO 7030 


1 HGR2 : FOR J = 1 TO 150 !S = PEEK 
( - 16336)! HPLOT H0,96:X = 
INT ( RND (1) X 277)!Y = INT 
( RND (1) X 151): HPLOT TO 


5200 FOR R = 1 TO 60 STEP 2 


7050 ON HBC GOTO 7070,7070,7080, 


X,Y:Z = INT ( RND (1) X 8)! 


5210 SCALE= R 


7080,7070,7070 


HCOLOR= Z: NEXT J! GOTO 1 


5220 DWW SH AT X,Y 


7060 GOTO 7080 




5230 NEXT R 


7070 ON HC GOTO 7020,7020,7080,7 


David Sepinski 


5210 F F < > 9 Tl€N F = 9: HCOLOR= 


080,7020,7020 


Verona, NY 


i: GOTO 5200 


7080 F HBC = AND HC = 1 THEN 


Integer BASIC 


5250 F = 


7020 


1 GR ! POKE -16302,0! CALL -1998 


5260 RETl«N 


7090 FHBC = 3W«)HC = 7THEN 


: FOR J=l TO 30000! Cffl-OR= Rf® 


5270 RETURN 


7020 


(16)!X= RND (30):Y= RND (37 




7100 F HBC = 1 AND HC = THEN 


)! FOR K=0 TO 10! HLIN X,X+ 


Dandelion type sinulation using the 


7020 


10 AT Y+K! NEXT K! NEXT J 


single line shape. 


7110 F IK = 7 AM) HC = 3 THEN 


10 GR ! CALL -1998! POKE -16302 




7020 


,0! FOR A=l TO 32000:Et= RND 


6000 HGR2 :SH = 1 


7120 X = INT (279 I RND (D) 


(20)!C= RM) (21)! CtLOR=C+ RND 


6010 F[K TM = 1 TO 1000 : «Xr TM 


7130 Y = INT (191 X Ml (D) 


(2)+B: PLOT B,C: PLOT 39-Ei, 


6020 X = 139:Y = 96:hic = 3:do = 


7110 RR = INT (100 I RND (D) 


C! PLOT B,17-C: PLOT 39-E:,17 


i:lx = 29 


7150 SC = INT (1 I RND (D) + 1 


-C: NEXT A 


6030 UISIIP 6110 




Paul Mosher 


6010 X = i39:y = 19i:do = i:lx = 


7160 ON SC GOTO 7170,7190,7210,7 


Voorheesville, NY 


27 


230 


Integer BASIC 


6050 HlC = 6 


7170 FRR<50THENRR = RR + 5 


1 GR ! POKE -16302,0! CALL -1998 


6060 UUSUe 6110 





: FOR J=l TO 30000! COLOR'= RND 


6070 X = 0:Y = fl:DD.= 2:LX = 30 


7180 GOTO 7250 


(3):x=j hod io:y=j mod is: hlin 


6080 HlC = 5:H2C = 7 


7190 FRR<90THENRR = RR + 9 


X,X+ RND (10-X) AT Y! VLIN 


6090 GUSUe 6110 





Y,Y+ RND (18-Y) AT X! NEXT 


6100 X = o:y = 95:00 = 2;lx = 12 


7200 GOTO 7250 


'^ Paul Mosher 


6110 HlC = 2:H2C = 3 


7210 FRR<50THENRR = RR + 5 


Voorheesville, NY 


6120 I^HJB 6110 





© 
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SOLUTION TO APRIL'S 








WORD SEARCH PUZZLE 
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STAR 
TREK 

ALL NEW VERSION! 

by Lance Micklus 



Now with Sound Capability 
and Increased Speed of 

Execution. 

You are in command of the 

starship Enterprise and her 

complement of 371 officers 

and crew. You must enter 

and explore the Omega Vl 

region of the galaxy with its 

192 quadrants containing star 

systems and planets (a few of 

which are habitable). 

Astronomical hazards such as 

pulsars, Class stars, and 

black holes are known to be 

present in the region. Klingon 

battle cruisers are also 

present, so the utmost care is 

needed. 

Star Trek III. 5 includes; 

playboard 8 by 3 by 3 

quadrants; weapons system 

of Phasers and Photon 
Torpedos; Warp and Impulse 
power systems; Science and 
Ship's computers; Long and 

Short Range sensors; 
Damage Control and Status 
reports; and 20 Klingon battle 
cruisers, and 100 stars, 
planets, black holes, and 
pulsars. 
Available on Digital 
Cassette for Level II, 
16K ti^nia $14.95 




TSeiHPIRDSID€ 



6 South St .Millord. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1 -800-258-1 790 
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DODGE 




by Matt Rutter 

"Dodge" is a program for the 
Atari requiring 8K RAM and one 
joystick. 

In this game, your mission is to 
picJc up all the gold pellets and 
diamonds on the board by running 
your car over them. Sound simple? 
Not really. There's a computer car 
whose only mission is to destroy you. 

Your car moves around the screen 
counter-clockwise while the com- 
puter car moves clockwise. Your only 
way to avoid a head-on collision is to 
move into one of the other lanes or to 
adjust your speed by pushing the ac- 
celerator, which is the fire button on 
the joystick. You change lanes by 
moving your joystick in the direction 
you want to change at one of the four 
sides of the screen. When you crash 
you will receive another car until all 
three of your cars are gone. 

Every once in a while, the com- 
puter car will change the gold pellets 
into diamonds when it runs over 
them. These diamonds are worth 
more points when collected by you. If 
you clear the board of all the gold 
pellets and diamonds, you receive a 
bonus of 500 points and a fresh 
board with all new pellets. 

VARIABLES 

A, B: Position of computer car. 
AS, BS: Horizontal and vertical 
speed of computer car. 



C: Random number used in deter- 
mining whether or not the computer 
car leaves diamonds. 
L: Lane of player car. 
LI: Lane of computer car. 
P: Joystick value. 
S: Cars left. 
SC: Score. 

T: Number of gold and diamonds 
left. 

X, Y: Position of player car. 
XS, YS: Horizontal and vertical 
speed of computer. 
Zl: ASCII value of character under 
computer car. 

DOCUMENTATION 

NOTE: The string "**BONUS**" 
in line 620 should be typed in reverse 
video. 

Lines 20-50: Draw screen. 
Line 60: Variable initialization. 
Line 70: Draws the two cars. 
Lines 90-95: Give player a head start. 
Lines 100-110: Branch to player and 
computer moving routines. 
Line 120: If player is at any of the 
lane-changing positions and the 
joystick is moved then branch to the 
lane-changing routine. 
Line 130: If computer car is at lane- 
changing position then branch to 
computer lane-changing routine. 
Line 200: Erases player and turns off 
sound. 

Line 205: If button is pressed, moves 
player an extra space. 



Line 210: Moves player, checks if 
player is over a period. 
Line 220: Checks if player is over a 
diamond. 

Line 225: Prints score, draws player, 
if all pellets are gone then branches to 
bonus routine. 

Lines 230-245: Check if player is in a 
corner. 

Line 300: Checks for a collision 
before computer moves. 
Line 305: Prints diamond. 
Line 320: Moves computer and draws 
computer car. 

Lines 330-345: Check if computer is 
in corner and change direction. 
Line 350: Checks for collision after 
computer car moves. 
Line 400: Erases player. 
Lines 410-490: Change lanes ac- 
cording to the position on the screen 
and joystick position. 
Line 500: Start of lane-changing 
routine. 

Lines 520-590: Change lanes ac- 
cording to position on board and 
lane of other player. 
Lines 600-640: Bonus routine. Adds 
500 points to score and goes back to 
beginning of program to draw next 
board. 

Lines 650-670: Explosion. 
Line 680: Delay, then checks if any 
cars are left and goes to the beginning 
Off the program. 

Lines 690-695: End of game routine. 
Check for start button being pressed 
to start another game. 



1 REM DODGE 


50 posrnoN 9,13:for i=i to s:? chr$(2 


0,100,10,8 


2 REM by Matt Rutter 


o);:NExr i 


225 posmoN 19,12:? sc:posnioN x,y:? 


3 REM written Dec,198fl 


60 xs=i:ys=o:as=-2:bs=o:x=2i:y=21!a=17 


CHR*(20>:iF T<1 THEN 600 


5 SC=0JS=3 


:b=2i:l=i:li=i:zi=32;t=i28;c=i 


230 F X=Li2+29 Wfl) Y=Li2+13 THEN XS=0 


10 GRAPHICS OtPOKE 752,1 


70 posnioN x,y:? CHR*(20):p(KinoN a. 


:ys=-i 


20 COLOR 121{F0R 1=0 TO 8 STEP 2:PL0T 


b;? "I" 


235 IF X=Li2+29 AND Y=9-L«2 THEN XS=-1 


I,i:DRftWTO I,Z2-I:PL0T 38-I,I!DRAHT0 3 


90 for 1=1 TO INT(23iRM)(1)+1):G0SUB 2 


:ys=o 


8-i>22-i:next I 


oo:p=stick(0):if y=io or y=ii and p=ii 


210 IF X=9-Li2 m Y=9-Li2 THEN XS=0:Y 


25 COLOR 18:F0R 1=0 TO 8 STEP 2:PL0T I 


THEN GOSm 100 


S=l 


,I!DRAHTO 38-I,I:PL0T I,22-I:DRA«T0 38 


95 NEXT I 


215 IF X=9-LX2 (*€ Y=Li2+13 THEN XS=i: 


-I,22-I!NEXT I 


100 GOSIB 200 


YS=0 


30 FOR 1=0 TO 8 STEP 2:C0L0R 17:PL0T I 


no rmjPi 300 


290 RETURN 


,i:COLOR 26:PL0T I,22-i:CX0R 5:plot 3 


120 P=SnCK(0):iF (X=19 OR X=20 OR Y=l 


300 IF (X=A AND Y=e) OR (X+XS=A AND Y+ 


8-I,i:C0L0R 3JPL0T 38-1, 2Z-i: NEXT I 


OR Y=ll) AND (P=ll OR P=7 OR P=11 OR 


YS=e) THEN 650 


35 COLOR 32:for 1=9 TO i3:plot i,i;dra 


P=13) THEN GOSUe 100 


305 POsmoN a,b;if zi=i6 and C<0.3 TH 


HTO 37,i:plot i+8,i:drawto I+8,21:NEXT 


130 IF A=19 OR B=ll THEN GOSUB 500 


EN ? CHR«(96)tG0T0 320 


I 


110 GOTO 100 


310 ? amm) 


10 COLOR 44:F0R X=1 TO 15 STEP 2:F0R Y 


200 POSITION X,Y;? " ";SOUND 0,0,0,0 


320 a=a+as:b=b+bs:locate A,B,zi:posin 


=1 TO 7 STEP 2;plot x,y:plot 38-x,y:pl 


205 IF STRIG(0)=0 AM) X/20INT(X/2) AN 


ON a,b;? "1" 


OT X,22-Y;PL0T 38-X,22-Y 


D Y/20INT(Y/2) THEN X=X+XS:Y=Y+Yb 


330 F A=Lli2+29 AM) B=L1«2+13 Tf£N AS 


15 (tXT YJNEXT X:POSin(»( 17,9:? "DODG 


210 x=x+xs:y=y+ys:locat£ x,y,z:if z=16 


=-2:bs=o 


E":P0Sm0N 13,10:? "by Mstt Rutter":P 


THEN SC=SC+5:T=T-1:S0UND 0,50,10,8 


335 IF A=Llx2+29 AM) B=9-Llx2 THEN AS= 


osinoN 13,12:? "smRE:"jsc 

1 


220 IF Z=96 THEN SC=SC+10:T=T-i:RnilND 


o:bs=2 
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Games from BIG FIVE will 
turn your computer into a 



SUPER NOVA 



© 





( 



■Huge ASTEROIDS have invaded the 
galaxy' Your mission is to destroy them 
and the alien saucers before they de- 
stroy you! " Our # 1 top selling game! 

$15.95 16K Mod I or III 



TRS-80™ 
HOME ARCADE 

AHACK FORCE® GALAXY INVASION® 




"Eight alien ramships are warping dow/n 
toward your destroyer ship You nnist 
shoot them down quickly before they 
crLish you'"' With sound' 

$15.95 16K Mod I or III 



^n ^W WT% ttt fW ^H ^n 



The newest and most exciting In- 
vaders-type game yet' Smooth sound 
effects, sharp graphics, and the Flag- 
ship" alien from Super Nova combine 
to make this OLir finest TRS-80 game'" 

$15.95 16K Mod I or III 





T56:HPI®ID€ 



6 Soulh Si .Millord. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-25a-1790 



310 IF A=9-Lli2 AM) B=9-Lli2 THEN AS=Z 

:bs=o 

315 IF A=9-Llx2 AND B=Lli2+13 TICN AS= 

fl:BS=-2 

350 IF (X=A m Y=B) OR <X+XS=A AND Y+ 

YS=B) TVEH 650 

360 RETURN 

100 POSKHW X,Y!? " ":iF X<30 THEN 12 



110 IF P=7 AND L<1 T(£N X=X+2:L=L+1:RE 

TURN 

115 IF P=ll »» L>1 THEN X=X-Z:L=L-1;R 

ETURN 

117 RETURN 

120 IF X>8 THEN 110 

130 IF P=7 AND L>1 THEN X=X+2:L=L-1:RE 

TURN 

135 IF F^ll m L<1 THEN X=X-2:L=L+1:R 

ETURN 

137 RETIFN 

HO IF Y>8 Tf£N 160 

150 IF P=11 AND L<1 THEN Y=Y-Z!L=L-H:R 

ETURN 

155 IF P=13 m L>1 THEN Y=Y+2:L=L-1{R 

ETURN 

157 RETURN 

160 IF P=11 AW L>1 Tt£N Y=Y-25L=L-1:R 

ETURN 

170 IF P=13 AND L<1 THEN Y=Y+2!L=L+l 

190 RETURN 

500 C=RM)(l):iF L=Ll TfCN RETURN 

510 POSmON A,B!? " ".'IF A<30 THEN 53 



520 F LM.1 THEN L1=L1+1;A=A+2:G0T0 59 





525 L1=L1-1!A=A-2!G0T0 590 

530 IF A>8 THEN 550 

510 IF DLl THEN L1=L1+1:A=A-2!G0T0 59 



515 li=li-i:a=a+2:goto 590 

550 IF B>8 TI€N 570 

560 IF DLl THEN Ll=Ll+i:B=e-2JG0T0 59 



565 L1=L1-1:B=B+2:GOTO 590 

570 IF L>Ll THEN L1=L1+1:B=B+2:G0T0 59 



580 li=li-i;b=b-2 

590 RETURN 

600 F13P JPOSmON 13, lO:? " xiBONUSra 

II 

610 FOR 1=0 TO 500 STEP 20:POSITION 15 
,10!? "iiBONUSM":SOUM) 0,70,10,15 
620 F I/10=INT(L/10) THEN POSIHON 15 
,10:? "iiBONUSni"JSOUM) 0,110,10,15 
630 FOR W=l TO 20:SC=SC+lJPOSniON 19, 

12:? sctNEXT w:next I 

610 SOU)© o,o,o,o:fqr i=i to 50o:next 

liGOTO 10 

650 POF' :SOUNO 0,60,12,15:POSinON X-1 

,Y-i;? "HI"! POSITION X-1,Y:? ")Mx"JP0 

smoN x-i,Y-n:? "ox" 

660 rm w=i TO ioo:fEXT h 

670 POSITION x-i,Y-i:? " ":posm(») 

x-i,y:? " ";posinoN x-i,y+i:? " " 

680 SOIWD 0,0,0,0!FOR 1=1 TO 500JNEXT 
ItS=S-l!IF S>0 THEN 10 
690 POSniON 15,8:? "GA« 0VER":P0Sni 
ON 0,23:? "Push START to play again"} 

695 IF PEEK(53279)=6 THEN RUN 

696 GOTO 695 



Q 



Atari One Liners 



10 BRfiPHICS B:FOR 1=240 TO 271:READ X 
:POKE I,X:NEXT IiY=USR(240):DATfl 173, 
0,210,141,86,208,141,90,208,24,144,24 
4 



Wayne Kinzebach 
Federal Way, VA 



1 FORfl=0 TO 2300:J=PEEK(A):SETC0L0R 2 
,0,J+4iS0UND 0,J,10,8:SETCflL0R 4,0,J+ 
4:SDUND 0,J,10,8:NEXT A:GOTO 1 

Dave Field 
Bangor, ME 



10 GRAPHICS 23; FOR ft=l TO 124: COLOR A 
:PLOT 0,90:DRAI(T0 A,0:PLOT 158,90!DRft 
NTO A,0:NEXT A:FQR N=l TO lOOOOOiNEU 



Robert Hinkle 
Hinsdale, IL 



© 
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CALENDER OF CONFERENCES, 
WORKSHOPS, AND FAIRS 



May 1-2 

Third Annual Computers in Education Conference 

Seattle Pacific University, Seattle, WA 

Special emphasis on the use of microcomputers in grades 1-12 

classrooms of various disciplines. 

Contact: Jerry Johnson, Seattle Pacific University, Seattle, WA 

98119 

May 4-7 

National Computer Conference 

NCC '81 McCormick Place, Chicago, IL 

Over 30 technical sessions w\\ be held. The use of robots and 

artificial intelligence will be among the sessions. Debate on 

"Do Machines Think?" 

Contact: NCC '81 PCF, c/o AFIPS, 1815 N. Lynn St., 

Arlington, VA 22209 

May 2 

National Computer Problem Solving Contest 

Washington, DC 

For Junior High and High School students. 

Contact: Dr. Donald T. Piele, Assoc. Prof, of Mathematics, 

Univ. of Wisconsin, Parkside, Kenosha, Wl 53141 

May 11-13 

31st Electronic Components Conference 

Colony Square Hotel, Atlanta, GA 

Papers on semiconductor-processing technology, optoelectronic 

devices, etc. w/ill be read. 

Contact: T.G. Grau, Bell Laboratories, Whippany Rd., 

Rm.3B-312, Whippany, N.J. 07981 

May 11-13 

Tenth ASIS Mid-Year Meeting 

Fort Lewis College, Durango, CO 

Theme is "Using Information". Some topics are user studies, 

access to information, and designing information systems for 

use. 

Contact: ASIS, 1010 16th St. NW, Washington, D.C. 20036 

May 21-23 

National TRS-80""Microcomputer Show 

New York Statler Hotel, New York, NY 

First computer show designed for owners of the TRS-80"Model 

I, II, III, Color Videotex, and Pocket Computers. Forums and 

user-group seminars on topics of interest to computerists as 

well as commercial exhibits to browse through. 

Contact: Kengore Corp., 3001 Route 27, Franklin Park, N.J. 

08823 

May 21-23 

Expo '81 

Philadelphia Civic Center 

Exhibit of business and personal computers. 

Contact: Philadelphia Produx, 2000 Box 2000 Bala Cynwyd,PA 

19004 

May 29-31 

MACC Show 

Franklin University Library Expansion Building, Columbus, OH 

The oldest personal computing show. Speakers on 

microprocessor applications, exhibits, user group meetings, 

seminars, workshops, computer music contest, and flea 

market. 

Contact: COMPUTERFEST '81 c/o Paul Pittenger, 215 Delhi, 

Apt. J, Columbus, OH, 43202 



TRS 80* 16 K & up UTILITY 



ULTRA-MON 

The 

Intelligent 

Monitor 

The most powerful tool available to 
the assembly language programmer. 



An INTERPRO Product 

ULTRA-MON is the fastest, most effective way 
to debug, analyze, and study machine language 
programs. Every feature is specially designed to 
make ROM routines and other programs 
completely transparent. BREAKPOINTS CAN BE 
PUT IN ROM. 

ROM Independent, ULTRA-MON works with 
any ROM or DOS. 24 pages of documentation 
explain each command with simple examples 
and demonstrations. 

INTERPRETIVE EXECUTION allows any 
program to run with Ultra-mon in complete 
control. Even if your program 'bombs-out' into 
the ROM (shift) (break) gets you back to 
Ultra-mon. 

In the TRACE mode, registers, flags, and 
memory are displayed. Each instruction in the 
program counter is disassembled, executed, and 
lineprinted while registers and memory are 
updated. The HARD-COPY TRACE 
DISASSEMBLY allows you to see exactly what 
your program is doing. 

Ultra-mon allows BOUNDRY LIMITS (outside 
of which your program will not execute), 
SINGLE-STEP EXECUTION, a lineprinting 
DISASSEMBLER, SELF-RELOCATION, and 

more. PRICE-$24,95 -Tape (Disl< loadable) 
TO ORDER CALL-(603) 669-0477 (24 hours) 

INTERPRO • PC BOX 4211 
Manchester, N.H. 03108 



•TRS 80 IS A TRADEMARK OF TANDY CORP. 
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From 



The Programmers Guild 



In a desperate race against the sun you 
search for SMAEGOR Monarch of Dragon- 
folk, who has kidnapped the Princess of the 
Realm and holds her in a distant and 
unknown place. In a quest for honor and 
glory, you must search the land, seeking out 
the tools needed for the ultimate confronta- 
tion. On the river delta, in the abandoned 
Temple of Baathteski, Goddess of the Blade, 
everywhere, clues abound. But WHERE is 
the Princess? 

Now, as never before, the genius of 
CHARLES FORSYTHE shines in this new 
Machine Language ADVENTURE. 
DRAGONQUEST! Can YOU save M'lady 
from the iron clutches of SMAEGOR? 

S-80 Level II 16K Cassette #26-2210017 ... $15.95 
S-80 32K Disk #26-2210010 $21 .95 

Dealer Inquiries Invited 
TAPE $15.95 DISK $21.95 



^^J^J ^ff^ 



•My 

TSeHfiRDSIIX 

6 South St .MiHord. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 




\<^ 
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Enjoy two of your favorites 
without leaving honfie! 



written by 

David Boike 



MASTERS GOLF 



Tired of golf as a sport you can only play during ttie warmer half of tfte year? 
Now you can play it year 'round with MASTERS GOLF! For the Atari and the 
S-80, MASTERS GOLF promises hours and hours of delight. 

(S-80 version originally published as "Protour Goll") 

S-80 Cassette #26-1040040 $9.95 

Atari Oassette #36-104000 $9.95 



WORLD SERIES 

Ah yes, it's springtime and a young man's thoughts turn to... baseball? How 
would you like a baseball season with no threats of player strikes or free agent 
negotiations that leave the shattered remnants of once-mighty teams strewn 
about the playing fields? We offer you your own league. Batter up! 

S-80 Oassette #26-1 040050 $9.95 

Atari Oassette #36-1040050 $9.95 

Apple Oassette #47-1040050 $9.95 

Apple Disk #47-1040050 $14.95 



TStHPIRDSIIX 

6 South St Millord. NH 03055 (6031673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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GALAXIA 




by Michael Prescott 

"Galaxia" is an Apple Arcade 
game in Applesoft and requires 32K 
RAM. 

Does the title "Galaxia" ring a 
bell? If it doesn't, you've probably 
missed out on some of the best alien 
invasion action to hit the arcades in a 
long time. The object of the game is 
to destroy the swarms of constantly 
advancing Crinoids, and score as 
many points as possible before losing 
your fifth laser base (at which point 
you've lost the entire galaxy to the in- 
vaders). 




The game uses the Apple's high- 
resolution graphics screen, with 
movement on- the screen controlled 
by several Machine Language 
routines. These execute much- faster 
than mere BASIC commands, so that 
the action is very Uvely. Other such 
routines handle the various bleeps, 
blips, and zaps that accompany the 
action. 

To control your laser base and to 
fire, use paddle 0. The knob moves 
your laser from side to side at the 
bottom of the screen, and the button 
fires a blast at the invading aUens. 
You'll notice that the paddle is more 
responsive to your command than in 
most space games; the more you 
play, the more you'll enjoy this 
feature. 

The introduction of "Space In- 
vaders" to the market initiated the 
space game trend. "Galaxia", 
although similar, provides a different 
type of excitement. The ahens do not 
fire at you from their "hovering" 
positions, but instead dispatch 
several of their number to swoop 
down on you in an attack formation. 
The quick movement of the laser base 
and the various antics of the Crinoids 
will provide you with hours of fun on 
your Apple. 



VARIABLES 



A: Number of non-flying Crinoids. 
A (*, *): Flying Crinoid matrix. 
Al, A2, A3, A4: Matrix components 
of Bl, B2, B3, B4. 
ACK: Number of flying Crinoids. 
AP: Pointer to the next flying 
Crinoid's position in array A. 
B: Pointer to phaser turret. 
Bl, B2: X and Y values of new posi- 
tion of flying Crinoid. 
B3, B4: X and Y values of old posi- 
tion of flying Crinoid. 
C: Vertical position of a Crinoid. 
D: Ship's position in matrix- 
compatible form. 

Dl, D2: Loop variables. 

DE: Pointer to vertical destination 

used by move routine. 

DM: Pointer to destination margin 

used by move routine. 

DX, DY: Duration and number of 

firings for phaser routine. 

HIT: Address of explosion sound 

routine. 

LEVEL: Level of difficulty. 

LFT: Pointer for left margin used by 

move routine. 

Ml, M2: Motion commands for 

move routine. 

MOVE: Address of Machine 
Language move routine. 
Nl, N2: Matrix pointer correctiojis 
for Crinoid. 

NL: Pointer to Crinoid farthest left. 
NOHIT: Used to check for a hit. 
NU: Pointer to highest row of 
Crinoids. 

P, PI: Pointers to new and old ship 
positions. 

PHASER: Address of Machine 
Language phaser routine. 
S: Multiplier to convert screen posi- 
tion to matrix position. 

S (*, *): Main space matrix. 
SCR: Score. 

STAR: Address of star-drawing 
routine. 

T: Multiplier to convert paddle posi- 
tion to screen position. 
UP: Pointer to top of display used by 
move routine. 

X, XI, Y, Zl: Loop variables. 
XX, YY: General-purpose variables. 
Z: Routine counter. 
ZX, ZY: Star turn-off and turn-on 
variables for star routine. 

SoftSidc May 1981 



Initislizstion 



98 LOMEM: 2^»577: HWEM; 31000: GOSUB 

1000 
100 DIH S(2045)«A(6»3) 
110 TEXT : HOME :S = 19 / 265{T = 

265/255 
120 POKE 232,995 POKE 233,121: SCft£= 

i: ROT= o: HC0L0R= o:si = 31 

789:S2 = 31821 :STAR = 31776: 

Hn = 31917:dx = 31950 :dy = 

3195i:PmSER = 31952:«l = 32 
322:M2 = 32325:UP = 32217:LF 
T = 32255;DE = 32273:DM = 32 
281:M0VE = 32211 
130 FOR X = TO 3: FOR XI = TO 

6:a(xi,X) = - i: fcxT xi,x 

110 VTAB 12: INPUT "SKILL L£VEL? 

(1-3) ";a$:le = m. (A»): if 

LE < 1 OR LE > 3 THEN 110 

150 HGR2 :scR = o:an = o:le = 1 - 

LE 



Draw crinoids on screen. 



160 F LE < 1 THEN L£ = 1 

170 POKE DY,i: POKE DX,i: CALL P 

haser: call phaser: call ptu 
ser: call Phaser: poke dx,o: 

POKE DY,60: call PHASER 

180 z = o:ack = o:n2 = o:nl = 5:n 

I = 0:NU = 2:A = 8 I ( INT ( 
6 / LE) + D: F(» Y = 2T0 8 

STEP LE: for X = 2 TO 16 STEP 
2:S(X,Y) = lO: XDRAH 2 AT X I 

II + 7,Y 1 lO: NEXT X,Y 

190 HCOLOR= 0:Z = Z + UP = POL 
(0) X T: DRAW 1 AT P1,152:B = 

p + 6;o = INT (P I s):s(s i 

Pl,15) = 0:S(D,15) = 255: XDRAH 
1 AT P,152:P1 = P 



Hake crinoids junp to etipt^ 
higher levels. 



200 



210 



220 
230 



F A = ORZ < >7 X INT 
(Z / 7) TICN 270 
FOR XI = 2 TO 16STEP2:XX = 
XX + S(X1,2): NEXT : F XX + 
10 I ACK < 60 THEN 230 
GOTO 270 

HCOL0R= O: FOR Y = LE + 2 TO 
B STEP LE: FOR X = 16 TO 2 STEP 
continued on next page 



19 



continued from previous page 

- 2} IF S(X,Y) = 10 THEN S( 
X,Y) = O: GOTO 250 

210 NEXT X,Yt GOTO 2B0 

256 FOR XI = 16 TO 2 STEP - 2\ TF 
S<X1,2) = THEN S(X1,2) = 1 
O: DRM 2 AT H I <X i N2) + 
740 X (Y + HI)! XDRAH 2 AT 
H M (XI + iC) + 7,20 + 10 « 
Ni;XX = XX + lOJXl = 2! IF X 
X = > 60 THEN X = 2JY = 8 

260 NEXT t GOTO 210 

Check if all crinoids sre deadt 



270 FACK=OANDA = OTHENLE 
= LE - 15 GOTO 160 



Subroutine to fire phaserst 



2fl0 IF PEEK ( - 16287) < 128 THEN 
380 

290 POKE DY,50: Pffl<E DX,lJ CALL 
PHASER! IF ACK = THEN 330 

300 NOHn = 2555 FOR X = 1 TO 55 F 
A(X,2) = D THEN XI = X5Y1 = 
A(X,3)SX = StNWn = 

310 NEXT ! F NOHH TJ£N 330 

320 C = Yl I 10! FOR X = TO 35A 
(X1,X) = - 1! NEXT !ACK = A 
CK - 1! CALL HH! HCOLOR= 35 
HPLOT B,150 TO B,C5 SCALE= 
25 XDRAH 2 AT 11 X + 7,C5 
HCOL(]R= 0! XDi^ 2 AT H x 
D + 7,C! SCALE= 

1! DRAM 2 AT 11 X D + 7,C! fPLOT 
B,150 TO B,C593^ = SCR + 10 '^ 
(1 - LE)! GOTO 380 

330 NOHn = 2555 F < > 2 x INT 
((D + N2) / 2) - N2 OR N2 > 
D THEN 360 

310 FOR XI = 8 + Nl TO 2 + Nl STEP 
- LE5 F S(D - N2,X1 - Nl) < 
> THEN X = X15C = 10 x X5 
XI = 2 + N15N0Hn = 

350 fCXT 

360 F NOHn THEN HCOLOR= 35 HPLOT 
8,150 TO B,05 HCOLOR= 0! HPLOT 
B,150 TO B,0! GOTO 380 

378 CALL HH! HCOLOR= 35 HPLOT B 
,159 TO B,C5 SCALE= 25 XDRAH 
2 AT 11 X D + 7,C5 HCOLOR= 
5 XDRAH 2 AT 11 X D + 7,C5 Smi= 
1! DRAM 2 AT 11 X D + 7,C5 HPLOT 
B,150 TO B,C5S(D - M2,X - Nl 
) = 05A = A - 15SCR = SCR + 
10 * (3 - LE) 



Subroutine to nake crinoids swoop 
down to attack. 



380 F ACK = THEN 1^0 

390 FOR X = 1 TO 55 HCOLOR= 05A1 

= A<X,0)5B1 = 11 X Al + 75A 

2 = A(X,1)5BZ = 10 X A25A3 = 

A(X,2)5B3 = 11 X A3 + 75A1 = 

A(X,3)5B1 = 10 X A15 F A2 < 

> - 1 THEN 110 

100 NEXT 5 GOTO 550 

110 F D > Al THEN XI = 15 GOTO 
HO 

120 F Al > D THEN XI = - 15 GOTO 
HO 

130 XI = 

HO F A2 = 16 THEN 510 

150 DRAM 2 AT B3,B15 HCOLOR= 35 DRAH 
2 AT B1,B25A(X,0) = Al + X15 
A(X,1) = A2 + 15A(X,2) = A15 
A(X,3) = A25 F INT ( RND ( 
1) X 3 + 1) < > 3 THEN 100 

160 POKE 31951,505 POKE 31950,15 
CALL 319525 HPLOT 11 x Al + 
11 + XI, 10 X A2 + 10 TO 11 X 
Al + 11 + XI, 1605 HCOLOR= 0! 
HPLOT 11 X Alt 11 + XI, 10 X 
A2 + 10 TO 11 X Al + 11 + XI 
,160! F D = Al THEN GOSUB 
180 

170 GOTO 100 

180 SCALE= 2! XDRAH 1 AT P,150! FOR 
Zl = 1 TO 10! POKE - 16336, 
PEEK ( - 16336) '^ + 23 x 
PEEK ( - 16336) '^ + 61 x 
PEEK ( - 16336) ^ 05 NEXT 5 
XDRAH 1 AT P,150! SCALE= 15 
AN = AN+ 1 

190 F AN < 6 THEN RETWW 

500 GOTO 550 

510 F Al = D THEN GOSUB 1805 DRAH 
2 AT B3,B15ACK = ACK - 15 Ft« 
Dl = TO 35A(X,D1) = - 15 NEXT 
5 GOTO 100 

520 FOR Dl = 16 TO 2 STEP - 25 F 
S(D1,B) = THEN S(D1,8) = 1 
05 XDRAH 2 AT 11 X (Dl + N2) 
+ 7,10 X (8 + N1)5A = A + 1 

530 NEXT 5 DRAH 2 AT 83,1505 FOR 
DL = TO 35A(X,DL) = - 15 NEXT 
5 FOR Dl = 2 TO 8 - LE STEP 
LE5 FOR D2 = 16 TO 2 STEP - 
25 F S(D2,D1) = THEN S(D2 
,D1) = 10! XDRAH 2 AT 11 x ( 
D2 + N2) + 7,10 X (Dl + Nl)5 
D2 = 2!01 = 8 - LE!A = A + 1 

510 NEXT D2,D1!ACK = ACK - 1! GOTO 



Update score and ask for another 
93ne, 



550 F AN < 6 THEN 600 



560 HOME ! TEXT ! VT<« 35 PRINT 

TAB( 17)"LEWEL "51 - LE 
570 VTAB 115 PRINT TAB( 16) "SCO 

RE5"5SCR X 10 
580 TEH 5 VTAB 205 HT<« 115 PRINT 
"PLAY AGAIN?" J 5 GET A$! PRINT 
I F A$ = "N" THEN EM) 
590 RUN 100 



Draw starst 



600 ZZ = 5 X (Z - INT (Z / 3) X 

3)! POKE S1,ZZ! POKE S2,ZX! C«l 

s\mtn = n 



Subroutine to nake crinoids narch, 



610 F A = THEN 190 

620 F ACK < > tt© Z < > 10 x 

INT (Z / 10) TJ£N 680 
630 YY = SGN ( RND (1) - .5)! F 

NU-YY<OORNU-YY>30R 

YY = THEN 630 
610 XX = 2 X SGN ( RND (1) - .5) 

!FNL + XX<10RNL + XX> 

10 THB4 610 
650 F SGN (YY) = - 1 THEN 670 

660 POKE Ml, 238! POKE H2,238i POKE 
UP,10 X NU! POKE LfT,NL - 1! 
POKE DE,10 X (NU - YY)5 POKE 
DM,NL + XX5 CALL M0VE5NU = N 
U - YY5NL = NL + XX!N1 = Nl - 
YY!N2 = N2 + SGN (XX)! GOTO 
680 

670 POKE Ml,206! POKE M2,206! POKE 
UP,lfl X (NU + 8) - 1! POKE L 
FT,NL - 1! POKE DE,10 x (NU - 
YY + 8) - 1! POKE DM,NL + XX 
! CALL MOVE!NU = NU - YY!NL = 
NL + XX!N1 = Nl - YY!N2 = N2 
+ SGN (XX) 



Subroutine to create »Brchinq 
sound. 



POKE - 16336, PEEK ( - 1633 
6)! POKE - 16336, PEEK ( - 
16336)! POKE - 16336, PEEK 
( - 16336)! F A > 3 X ( M 
(6 / L£) + 1) AND Nl< > - 
2 THEN 190 



Subroutine to deternine which 
crinoids will drop down to attack. 
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699 fffiCK>10RL£i5>Z0R 






Nl > - 2 THEN 190 


1130 DATA 117,211,0,98,33,16,68, 


1230 DATA 82,86,90,91,67,71,75,7 


700 FOR X = 1 TO 5J IF A(X,1) = 


38,76,1,18,35,51,61,68,65,61 


9,83,87,91,95,67,71,75,79,83 


- 1 THEN AP = X:X = 5 


,70,61,73,70,61,66,68,66,67, 


,87,91,95,61,68,72,76,80,81, 


710 fCXT J HCOLOR= OJ FOR X = 2 TO 


68,67,66,67 


88,92,61,68 


16 STEP 2: IF S(X,2) < > THEN 






DWW 2 AT Hi (X + N2) + 7 






♦OJ XDRAH 2 AT 11 « (X + N2) 




1210 DATA 72,76,80,81,88,92,65,6 


+ 7,90:ACK = ACK + 1JA(AP,0 


1110 DATA 67,65,160,0,173,15,121 


9,73,77,81,^,89,93,65,69,73 


) = X + N2JA(AP,1) = 11 + Nl 


,105,15,111,51,121,169,16,19 


,77,81,85,89,93,66,70,71,78, 


lMtf>,2) = X + N2JA(AP,3) = 


0,0,121,112,57,121,190,25,12 


82,86,90,91 


11 + H1!S<X,2) = 0:A = A - 1 
{X= 16 
720 NEXT J GOTO 190 


1,112,58,121,111,65,67,200 






1250 DATA 66,70,71,78,82,86,90,9 






1,67,71,75,79,83,87,91,95,0, 




1150 DATA 192,6,208,236,160,0,17 


0,0,0,0,0,0,0,128,128,128,12 


Instructions t 


3,77,121,105,11,111,83,121,1 
69,0,190,0,121,112,89,121,19 
0,0,121,112,90,121,111,16 


8,128,128 


1100 TEH 5 HOME 5 VT« lO: PRM 




1260 DATA 128,128,0,0,0,0,0,0,0, 


T(«( W'Q A L A X I A": VTAB 




0,128,128,128,128,128,128,12 


13t PRINT IfBi 11) "BY MICW 
EL PRESCOTT" 

1010 nnsiJB 1110 

1020 HOft ; PRINT "THE CRINOIDS, 


1160 DATA 70,200,192,6,208,236,2 
1,96,0,2,0,6,0,28,0,73,73,62 
,51,55,62,11,15,51,63,55,77, 
73,60,39 


8,128,0,0,0,0,0,0,0,0,128,12 
8,128,128 


AN MFI 1 TGENT SPECIES OF P 




LANT LIFE, ARE NOW TRYING TO 




1270 DATA 128,128,128,128,0,0,0, 


INWCE YOUR GALAXY." 




0,0,0,0,0,128,128,128,128,12 


1030 PRDff : PRINT "THEIR GOAL I 


1170 DATA 10,5,56,36,39,60,0,73, 


8,128,128,128,10,10,10,10,10 

Mii MIX mn * t r\ * in 


S TO DESTROY AIL dOm. LIFE 


16,15,15,37,181,27,63,55,15, 


,10,10,10,168,168 


M) MW<E THE AUTOTROPHIC FOR 


53,63,55,15,15,15,16,16,222, 


; 


M OF LIFE DOMINANT." 


27,56,60,63 




1010 PRINT J PRINT "YOUR MISSION 




1280 DATA 168,168,168,168,168,16 


IS TO DESTROY AS MANY OF 




8,10,10,10,10,10,10,10,10,16 


TIE SfMDING CRDMIDS AS YOU 


1180 DATA 62,1,56,63,62,62,0,0,0 


8,168,168,168,168,168,168,16 


C^," 


,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


8,10,10,10,10,10,10,10,10 


1050 PRINT : PRINT "W«NING! ! ! 


,169,0,168,56,16,171,121 




SOE OF THE CRINOIDS HILL 






SWOOP OOHN AM) FIRE AT YOU. 




1290 DATA 168,168,168,168,168,16 


F THEY" 




8,168,168,10,10,10,10,10,10, 


1060 PRINT "GET TO THE BOnOM, T 


1190 DATA 16,172,121,111,3,173,1 


10,10,0,162,0,112,210,125,16 


fCY HILL REAHPtAR WITH RH 


8,192,106,106,106,77,172,121 


0,10,190,0,125,185,120,125 


NFORCEMENTS." 


,10,10,10,136,152,208,1,96,7 




1070 PRINT ! PRINT "YOUR SHP CA 


6,177,121,0,1,1,172,206 




N TW<E ONLY FIVE HHS-T* 
SIXTH HTl 1 DESTROY YOU, tf© 




1300 DATA 105,2,111,2,232,21,111 
,11,126,111,18,126,112,12,12 


YOU HILL LOSE THE GALAXY. 

M 


1200 DATA 121,173,18,192,171,207 


6,112,19,126,160,20,190,0,12 


* * * 

1080 VTAB 21*. PRINT " >» PRESS 


,121,202,208,253,136,208,211 


5,185,120,125,105,1,111,2 


SPACE B^ TO CONTINUE <« 


,206,207,121,208,236,96,0,0, 




II « 

f 


0,0,0,0,0,0,0,0,0 




1090 ff PEEK ( - 16381) < 128 THEN 




1310 DATA 232,21,111,11,126,112, 


1090 




15,126,162,0,160,0,185,131,7 


UOO POKE - 16368,0J HOME 5 RETURN 




2,153,1,81,138,153,131,72,20 




1210 DATA 0,0,0,0,0,0,0,0,0,0,0, 


0,192,30,208,211,21,238,210 


nil FOR X = TO 615: REM) a: POKE 


0,0,0,0,0,61,68,72,76,80,81, 




X + 31711,A:B = B + a: NEXT 


88,92,61,68,72,76,80,81 




: F B < > 50709 OR X < > 




1320 DATA 125,169,80,205,210,12 


616 THEN PRINT "raOATABASE 




5,210,9,206,217,125,206,17,1 


ERR": END 


1220 DATA 88,92,65,69,73,77,81,8 


26,76,216,125,21,96,0,0,0,12 


1120 KLIURN 


5,89,93,65,69,73,77,81,^,89 
,93,66,70,71,78,82,86,90,91, 


6,76,216,125,21,96,0,50 




66,70,71,78 


1330 DATA 18,18,18,18,51,50,18;-^ 


Data for Machine Lsngus^ routines 
and shape table. 




51,19,55,52,52,90,90,96,0 Q 
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COMPUTERS 



O APPLE II PLUS Computer, 48K RAM (#47-203) $1299.00 




PERIPHERALS 




SUP-R-MOD RF Modulator (#47-100) $34 95 

APPLE II Disk Controller w/Drlve (#47-004) ; $579 00 

APPLE II Disk Drive (#47-005) $439 00 

LOBO Disk Drive (#47-3101) $329 00 

MICROSOFT Z-80 SoftCard (#47-80) $279 00 

MICROSOFT RAMCard (#47-81) $169.00 

Applesoft BASIC Language Card (#47-ASC) $195.00 

Integer BASIC Language Card (#47-IC) $195.00 

PASCAL Language Card (#47-PAS) $469 00 

MOUNTAIN COMPUTER Apple Clock (#47-MH003) $269 00 

MOUNTAIN COMPUTER ROMWrlter (#47-MH015) $169 00 

MOUNTAIN COMPUTER ROMPIus w/Fllter (#47-MH007) $189 00 

MOUNTAIN COMPUTER Music System (#47-MH022) $519 00 

MOUNTAIN COMPUTER A/D -h D/A (#47-MH023) $329 00 

MOUNTAIN COMPUTER Expansion Chasis (#47-MH024) $609 00 

HARDSIDE Memory Upgrade Kit (#5-1102) $59.00 

APPLE Silentype Printer w/lnlerface (#47-000) $569.00 

Parallel Printer Card and Cable (#47-9) $100.00 

CCS Arithmetic Processor (#47-78110) $399.95 

CCS Asynchronous Serial interface (#47-7710A) $159.95 

CCS Synchronous Serial Interface (#47-7712A) $159 95 

CCS GPIB (IEEE-488) Interface (#47-7490A) $300 00 

© CCS Calendar/Clock Module (#47-7424A) $125.00 

LYNX Communications Interface (#19-85) $239 00 

© KURTA APPLE Graphics Tablet (#47-1000) $659 00 

VERSAWRITER (#47-1100) $239 OO 

ALFAM-II Music Synthesizer (#47-1200) $189.00 

LEEDEX 12" B/W Monitor (#5-100) $159.00 

NEC 12" Monochrome Monitor (#5-200) $239.00 

Color Video Receiver (#26-3010) $389!oO 




I^J^ft VKA 




TS€:IHPIRI>SID€ 



6 South St .MiKord. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 



TERMS: Prices and specifications are sujecl lo change, HARDSIDE ac- 
cepts VISA & MASTERCARD Certified checks and Money Orders: Personal 

checks accepled (takes 3 weeks to clear). HARDSIDE pays all shipping 
charges (within Ihe 48 stales) on all PREPAID orders over S100-00. On all 
orders under $100 a $2.50 handling charge must be added. COD orders ac- 
cepted (orders over S250 require 25% deposit), there Is a SS.OO handling 
charge, UPS Blue Label, and Air Freight available al extra cost. TRS-80 is a 
tradmark of Tandy Corp, 



42 




SoflSidc May 1981 



TheFiTstM 



Microcomputers 





Hayden books and software 
= ivill help you have fun, = 



NEWI HISTOGRAPH (Boyd) A calendar based 
histogram or bar-graph production system. Allows the 
user to enter numeric data that relates to a date, and 
reproduces that data as a high-resolution histogram, 
09009. Apple 11 Disk. $29 95 

NEW! DATA-GRAPH (Boyd) Aids in the preparation of 
graphs and charts. Numeric data can be entered into 
Data-Graph and used to create colorful one-, two-, or 
four-quadrant graphs 09109, Apple II Disk. $49.95 

FINPLAIM: A Financial Planning Program for 
Small Businesses ((^lontgomerv) Allows you to enter 
data from a balance sheet into the program, to make as- 
sumptions about the future growth of business, and to 
have the computer project results for up to a five year 
period based on those assumptions. And if you change 
any data, (he program revises all resulting data auto- 
matically. The disk version can be used only with 
TRSDOS Vfeision 2.3, 05]03. TRS-80 Level II tape. 
J69-95; 05I0S.' TRS-80 Level II Disk Version. $74.95 

SARGON II (Spracklen) The Champ of champs, ■',,,an 
excellent program which will provide a true challenge for 
many players, , ,Save your money and buy SARGON 
II, ." WO So/limre Crilqiie 03403. TRS-80 Level II: 
03404. Apple IL 03410. OSl CIP: 03440. OSI C4P: 
each taix' $29.95 03408. TRS-80 Level II Disk: 
03409. Apple II Disk: 03414. OSl CIP Disk: 03444. 
OSI C4P Disk: 03484. C8P Disk: each $34 95 

REVERSAL (Spracklen) Winner of the software division 
of the First International Man-Machine OTHELLOTM 
Tournament, this version of the 20C)-year old game 
Reversi. features 27 levels of play and high-resolution 
color graphics, 07004. APPLE II tape. $29 95: 07009. 
APPLE II Disk. $34 95 

INTRODUCTION TO VSAM (Atkinson-DeSanctis) 
Shows the manager and technician working with a 
COBOL DRIVEN IBM 370 DOS VS how to convert 
the files and accessing program of a data base supported 
by the indexed Sequential Access (vlethod, "5159-X. 
$11.95 

HOME COMPUTERS CAN MAKE YOU RICH 

(Weisbecker) Teaches the home computer owner and 
non-owner how to make money by consulting, 
programming, inventing 5177-8. $6 50 



save time, 
ssKve energy, 

and maybe — 
even get rich! 



BASIC COMPUTER PROGRAMS FOR BUSINESS: 

Vol . I (Sternberg) With more than 35 programs 
ranging from budgets to accounts payable, each 
program has a description of its functions, a listing in 
BASIC, a symbol table and samples, '5162-X. $9.95 

BEAT THE ODDS: Microcomputer Simulations Of 
Casino Games (Sagan) Provides simulations of Trente- 
et-Quarante. Roulette. Chemin-de-Fer. Craps, and 
Blackjack, all written in BASIC, 5181-6. $7.95 

THE S-100 BUS HANDBOOK (Bursky) Discusses 
CPU. memory, input/ output, computer fundamentals 
and more, ''0897-X. $14.50 

DR. DOBBS JOURNAL OF COMPUTER 
CALISTHENICS & ORTHODONTIA: Running 
Light Without Overbyte Vols. I, 2, & 3 (The 
People's Computer Company) Vol, 1 (1976) holds the 
first ten issues of Dr, Dobbs Journal and reflects the 
changes that took place in personal computing. Vol, 2 
(1977) documents the growth of the small computer as 
a tool. Vol. 3 (1978) details the new interest in 
programming languages, Vol. 1, "5475-0: Vol. 2. 
'5484-X: Vol 3. "5490-4: each $18.95 each 



HOW TO PROFIT FROM YOUR PERSONAL 
COMPUTER: Professional, Business, anci Home 
Applications (Lewis) Describes the uses of personal 
computers in business applications, such as accounting, 
inventory, mailing lists and others 5761 -X. $10 75 



PASCAL WITH STYLE: PROGRAMMING 
PROVERBS (Ledgard. Nagin and Hueras) Helps 
PASCAL users write more accurate programs with 
guidelines and samples of programs. "5124-7. $7. 70 

BASIC COMPUTER PROGRAMS FOR THE HOME 

(Sternberg) Offers more than 75 programs such as 
finances, kitchen, automotive, recreational and a listing in 
BASIC, a symbol table and sample data. ''5J54-9. 
$9.95 

THE FIRST BOOK OF MICROCOMPUTERS: The 
Home Computer Owner's Best Friend (Moody) 
Chapters discuss language, architecture, machine 
functions, home applications and much more. "5121-2. 
$5.95 

BASIC BASIC: An Introduction to Computer 
Programming In Basic Language, Second Edition 

(Coan) Contains more than 100 sample problems 
complete with results, 'SlOe^. $10,50 

SIXTY CHALLENGING PROBLEMS WITH BASIC 
SOLUTIONS, Second Edition (Spencer) Contains 
sixty games, puzzles, mathemadca! recreations and 
science and business problems. "5180-8. $7 70 

ADVANCED BASIC: Applications And Problems 

(Coan) A useful book for the programmer acquiring 
BASIC as a second or third language or a student 
seeking more about BASIC, "5555-1. $10.75 

SMALL COMPUTER SYSTEMS HANDBOOK 

(Libes) Enables the small computer user to purchase, 
assemble and interconnect components and program 
the microcomputer, "5678-8. $9 95 

COMPUTERS IN ACTION: How Computers 
Work, Second Edition (Spencer) Features 
microprocessors, floppy disks. COM units and 
languages, -5757- 1. $7,25 

HOW TO BUILD A COMPUTER-CONTROLLED 
ROBOT (Loofbounrow) Contains an introduction to the 
robot and constmction of the basic fi-amework. power 
supply, speed control and directional control circuits 
"5681-8. $9.75 



The 
Saltware Exchange 



6 South Street, Milford, NH 03055 

TO ORDER TOLL-FREE: In NH call 673 5144 

1-800-258-1790 




Book Company, Inc. 
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PASCAL-80 onyourS-80™ 




Phelps Gates, the author of "APL-80", brings you "Pascal-80" for your S-80. Now 
you can add another dimension to your programming skilis by using this fast version 
of the compiied language Pascal. 

"Pascal-80" is a powerful, structured and well-defined language for the S-80 
microcomputer. This easy-to-use language makes writing well-structured, and 
therefore easily understandable programs simple. "Pascal-80" supports most of the 
features of UCSD Pascal, including RECORD, SET (to 256 members), FILE (text and 
record oriented), n-dimensional ARRAY (and ARRAY of ARRAY, etc.), global GOTO, 
ELSE in CASE statements, and BCD arithmetic accurate to a full 14 places (including 
log and trig functions), 6-digit optional. "Pascal-80" features a 23600 byte workspace 
in 48K, a 1000 line per minute compiler, an easy-to-use text editor, and plain English 
error messages, all the features you would expect in a Pascal costing hundreds 
more. 



Variable Types: 
Constants: 
Files: 
Procedures: 

Functions: 



Boolean, integer, char, real, real6, and text. 

Maxint, minint, true, false, and pi. 

Input, output, and Ip. 

Read, readin, write, writein, reset, rewrite, close, seek, 

els, and poke. 

Abs, arctan, call, chr, cos, eof, eoln, exp, inkey. In, mem, 

odd, ord, peek, pred, round, sin, signif, sqr, sqrt, succ, and 

trunc. 



"Pascal-80" does not implement variant records, pointer and window variables, or 
functions and procedures used as parameters. 
S-80 32K Disk #26-i4iooid $99.95 
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AC* 




An. 




by Phelps Gates 



Now a high-level, scientific programming language for the home computer that doesn't cost $200 or $300. The power of 
this language Is in Its strong mathematical operations, especially with regard to matrices and vectors. Programs requiring 
matrix multiplication or other matrix problem solving that would require hours of programming time In BASIC are solved 
quickly and with minimal effort in APL. 

To aid in learning APL, lessons are included on the disk. Starting from the basics, you are brought step by step through 
the various programming techniques involved with APL. These lessons act as a tutor which will have you "talking APL" in 
no time. Also available Is the book, "APL: An Interactive Approach," which reinforces many of the examples given In the 
lessons and provides additional Insight Into APL programming. 

FEATURES 

APL-80 on disk contains the following features: )SAVE and )LOAD workspace on disk; )COPY other workspaces Into cur- 
rent ones; Return to DOS for directory or commands without losing your workspace; Send output to lineprlnter; Five 
workspaces of lessons Included; Sequential and random files; 15 digit precision; Monadic and dyadic transposition; Easy 
editing within FUNCTION lines; Latent expresslons(FUNCTION can "come up running" when loaded); Tracing of function 
execution; Real-time clock; User-control of random link; Workspace is 25587 bytes (in ASK machine); Arrays may have up to 
63 dimensions. 

COMMANDS APL-80 

APL-80 supports the following commands; Absolute value, add, and assign, branch, catenate, celling, chr$/asc, circular, 
combinational, comment, compress, deal, decode, divide, drop, encode, equal, expand, exponential, factorial, floor, for- 
mat, grade down, grade up, greater, greater/equal. Index generator, indexing. Index of. Inter product, label, less, less/equal, 
logarithm, maximum, member, minimum, multiple, nand, negate, nor, not, not equal, or, outer product, peek, poke, quad, 
quote quad, random, ravel, reciprocal, reduction, reshape, residue, reverse, rotate, scan, shape, sign, system, subtract, 
take, transposition. 

SPECIFICATIONS 

Minimum system requirements: 32K disk system (&48K recommended) Includes APL-80, Five workshapes of lessons. In- 
struction manual. . . #26-apld $39.95 on disk 

Reduced feature: 16K Level II tape version, no lessons. 

Transpositions, format, and Inner product not Implemented. Reduced domain for some functions, 6 digit accuracy. 
. . . 126-APLT $14.95 on cassette 

LIMITATIONS 

Due to the absence of the special APL character set on the TRS-80 , APL-80 uses shifted letters to represent the various APL characters. In addition to the keyboard 
limitations, lamination, domino, and matrls Inverse are not Implemented but can be derived with user-defined functions, lulultlple specifications must be split Into 
two statements unless the left-hand assignment Is to a quad. This also applies to Implied multiple specifications. Reduction and reshape (p) are not permitted for 
empty arguments; the argument of add/drop may not be scalar; empty Indices are not permitted. A quad (q) can't be typed In response to a quad (nor can the name 
of a function which Itself gets Input from a quad). Quote-quad (m) Is permitted. No more than 32 user functions can be defined In a single worl<space and a function 
may not contain more than 255 lines. 

A comment (c) must occupy a separate line: a comment can't follow a function statement on the same line. 
In the tape version, arrays are limited to five (5) dimensions. 




TS€:l-IPiJ^ID€ 
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I DONT 
THINK WE'RE 




IN KANSAS ANYMORE 



by Mark Pelczarski 

Starting off a little different this 
month, I'm handwriting this column 
and boy does it feel good. My com- 
puter's tied up in production of a 
program on which I've spent most of 
the last three months working full- 
time. Free at last! I'm tired of friends 
making fun of my beady eyes as I oc- 
casionally wander out of the 
workroom for a look at the outside 
world. 

I hope Dave and the gang don't 
have too much trouble reading and 
typesetting these scratches. I'm a lit- 
tle out of practice. Oh, yes; I have 
been a little slow replying to inquiries 
about the continuation of "Data 
Base" but never fear, that's the next 
project. 

As I recall, last time I made some 
ordeal about how a computer stores 
numbers. You, of course, never real- 
ly have to worry about hexadecimal 
or binary unless you start using 
Machine Language. People have 
already written nice little Machine 
Language programs that let the com- 
puter translate normal numbers for 
normal people to use. 

Computers also store characters: 
things like the letter "Y", or the sym- 
bol "%", or the numeral "9" (not to 
be confused with the number 9, if 
that's okay with you) (even if it's not) 
(you see, a numeral is only a symbol, 
a number is an amount) (I use paren- 
theses a lot when I'm handwriting 
something). You're probably 
wondering how all these strange sym- 
bols can be stored in a contraption 
that only understands numbers. If so, 
you forgot that it doesn't even 
understand numbers, only ONs and 
OFFs (or Highs and Lows, I's and 
O's, or whatever you call them). 

Let's go back to the unit called a 
byte. A byte is eight bits, eight ONs 
and OFFs that can hold 256 different 
patterns, or in binary the numbers 
to 255. Characters are stored as a cer- 
tain pattern in a byte. They are 
assigned binary numbers with which 
they are associated. The letter "A" 
for example, is given the binary 
equivalent of the number 65. There's 
nothing magical about associating 
"A" with 65; it's just a standard 
that's been adopted, called ASCII 
(American Standard Code for Infor- 
mation Interchange). It's not the only 
coding system used in the world; IBM 
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Figure 1 
8 bits in eacli byte 
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uses their own, called EBCDIC, 
which stands for something I can't 
remember. That works out nicely for 
IBM, since hardware that isn't com- 
patible with EBCDIC can't be used 
with their systems. Some microcom- 
puter manufacturers have tried the 
IBM approach, requiring all add-on 
equipment to be purchased from 
their own company, and so far it 
looks like that idea fails in this 
marketplace. I hope no one company 
will get strong enough to dictate its 
own standards entirely; some degree 
of compatibility is nice to have. 

So what happens when you type 
the letter "A"? A contact on the 
keyboard is closed, and a character 
chip sends a bit pattern correspon- 
ding to that key to a location in 
memory. If the character is to be 
printed, a table in memory is checked 
for the pattern of dots that should be 
turned on. You guessed it, that pat- 
tern is stored as a set of ONs and 
OFFs, usually eight bytes worth, one 
for each row of the finished character 
(see Figure 1). So you see, it never 



really understands a character; it just 
dutifully stores a number and occa- 
sionally looks up that numbered en- 
try in a table and throws the informa- 
tion stored there on the screen. 

Doesn't it get confused between 
numbers and letters, if they're both 
stored the same way? Good question. 
Actually, any given byte of storage 
can be interpreted a lot of ways. It 
depends on the context, much like the 
words "to", "two", and "too" 
when spoken. A single pattern within 
a byte can be interpreted as a 
character, a hexadecimal number, a 
Machine Language command, part 
of a base 10 number (and there it can 
be interpreted different ways — in- 
teger or floating point). It can also be 
interpreted as part of an address in 
memory (in a 64K machine, every 
location is assigned a unique address, 
a pattern that can be stored in two 
bytes), or it can be interpreted as a 
BASIC command. (The word 
"PRINT" is usually not stored, for 
example. It would take five bytes. In- 
stead a one-byte pattern is assigned to 
the PRINT command). Anyway, 
how each pattern is interpreted 
depends on what previous instruc- 
tions told the computer to look for 
when it got to that location. That's 
often the reason for programming er- 
rors... the computer was looking for 
something that could be interpreted 
as a BASIC instruction, for example, 
and it found a weird pattern that 
made no sense (remember, there are 
256 possible patterns, and nowhere 
near as many BASIC commands). 
Such is the world of ONs and OFFs, 
and now, I'm off... 

As Scott would say, "YOHO"... 



® 



APPLE ONE LINERS 



Integer BASIC 

1 GR ; FOR L=l TO 10000! FOR 

j=0 to l mod 10;c=l mod (j+ 
d: color=c: for k=o to j; hlin 

0,J AT K: call -1953: HLIN 
39-J,39 AT 39-K! COLOR=C; i€XT 
K,J,L! END 

T. Jackson 
Whitier, CA. 



Applesoft 

xc = ho;yc = Bo:xL = oiyl = o; 

HGR ; FOR I = TO IE + 9;X 

= F'OL(O) / 255 = PDL (0) / 

255 X 2795Y = PDL (1) / 255 

x 159:F = ( PEEK ( - 16287) 

> 127):XC = XC + F X (X = X 

O! HCOL0R= 0:YC = YC + F I 

(Y - YO; HPLOT XC,YC TO XL, 

YL; HCOLOR- 7\ HPLOT XC,YC TO 

x,y:xl = XJYL = y: next 

Joe Humphrey 
Topeka, KS. 
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seiesatioRal 
software 



SPACE WAR 

You're in command in SPACE WAR! Destroy your opponent's 
ship by forcing him to collide with the sun or to explode upon 
re-entry from hyperspace ... or challenge him to fight face to 
face with missile fire. You're in command of the speed and 
direction of your ship. You control the timing of your missiles. 
You select the game mode from five options, including 
Reverse Gravity, and the battle begins . . . Accelerate to place 
your shots — and escape into hyperspace before your 
opponent comes within range. But be wary, he (or she!) may 
circle out of sight and reappear on the opposite side of the 
galaxy! (This is the classic MIT game redesigned especially for 
the Apple.) 



SUPER INVASION 

SUPER INVASION is the original invasion game, with the 
original moon creatures and faster action than any other 
invasion game. Features superb high resolution graphics, nail- 
biting tension and hilarious antics by the moon creatures! Self- 
running "attract mode" of operation for easy learning and 

demonstration of the game. As good in every way as the famous Invaders arcade game. High speed action! 
Sound effects! Runs on the Apple II and the Apple II Plus. 

Super Invasion Only 

32K, Apple II, Cassette $19.95 

Space War and Super Invasion Combined 

48K, Apple II, Disk $29.95 




AIR TRAFFIC CONTROLLER 

In AIR TRAFFIC CONTROLLER you assume responsibility for the safe flow of air traffic within a 15 x 25 
mile area up to 5,000 feet in altitude. During your shift as a controller in charge of this airspace, 26 aircraft 
become active and under your control. Jets and prop planes have to be guided to and from the two airports, 
navigational beacons and ten entry/exit fixes. The aircraft enter the controller's airspace at various altitudes 
and headings whether or not you are ready. 

16K, Apple II and Apple II -I- Cassette $11.95 

16K,S-80, Cassette $11.95 




T5€:HPIRD5ID€ 
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DAIRY FARMING 




by Scott Tapley 

"Dairy Farming" is an S-80 
simulation requiring 16K RAM. 

In this simulation you get half a 
million dollars to buy a farm and get 
started in your own dairy farming 
business. The object is to accumulate 
10,000 points, based on your total 
assets of milk, land, cash, cows, etc. 
After buying one of three farms 
shown to you by the computer, you 
go to the auction and buy some cows. 
You then enter the daily cycle of the 
game, which is in three phases. 
PHASE ONE 

In the first phase you have six op- 
tions: (1) Milk the cows, (2) Buy feed, 
(3) Buy cows, (4) Feed the cows, (5) 
Take the cows to the pasture to graze, 
and (6) Sell milk. When you begin 
phase one you should buy feed if 
needed, unless you are going to take 
the cows to the pasture. Although it 
costs nothing to let them graze, the 
grass will eventually get eaten and 
you will need to let it grow back for a 
few days. If you don't feed the cows 
at all, two things will happen. First, 
the cows will become too weak to 
produce good milk, and some of the 
milk will have to be thrown out. And 
second, one of the cows will die later 
in the day. 

After feeding the cows, you will 
want to milk them. You'll notice that 
each type of cow gives a different 
amount of milk — from Jersey, 
through Guernsey, Ayrshire, and 
Brown Swiss, to Holstein. If there 
isn't enough room in your coolers to 
hold all the milk, the extra will have 
to be sold at a cheaper price to get rid 
of it quickly. When you finish milk- 
ing, you can then sell some or all of 
your milk to the local milkman — if 
you have at least 200 gallons to sell. 
Each time you sell, the price per 
gallon will change. With the money 
you can buy a cow, or wait to buy 
something else. You can also keep the 
money as a means to get to your 
10,000-point goal. 



PHASE TWO 

The second phase of each day's cy- 
cle involves buying (and possibly sell- 
ing) capital goods. You can buy or 
sell some land, buy a large or small 
cooler, buy another barn, buy 
another silo (small, medium, or 
large), or even sell the whole farm 
(which, of course, ends the simula- 
tion). Except for selling land, all 
these things help you to accumulate 
points. Just remember not to spend 
too much, or you'll have to take out a 
loan. 

PHASE THREE 

In the third and final phase of the 
work day, the computer calculates 
the interest on your loan (if you have 
one), and asks you if you would like 
to make a payment on it. Your point 
total is also calculated, on the follow- 
ing basis — 

One point for every: 

$10,000 in cash. 

5 acres of land. 
500 gallons of milk. 
Small cooler. 

7 Jersey cows. 

6 Guernsey cows. 
5 Ayrshire cows. 

4 Brown Swiss cows. 

3 Holstein cows. 

2 calling birds. 

And a partridge in a pear tree. 

(Just Kidding.) 

Two points for every large cooler. 

Four points for every small silo. 

Five points for every barn or 
medium silo. 

Six points for every large silo. 

MINUS one point for every $100 
borrowed. 

If you don't yet have the necessary 
10,000 points to win, you start a new 
day with phase one again. When (and 
if!) you reach your goal, you are 
given a rating based on the number of 
days elapsed, and you can go back to 
sleeping in past sunrise every morn- 
ing. 



VARIABLES 

A: Acres of land owned. 
AY: Ayrshire cows owned. 
BB: Your bid. 
BID: The current bid. 
BN: Number of barns owned. 
BR: Random increase of BID. 
BS: Brown Swiss cows owned. 
C: Total number of cows owned. 
CE: Indicates whether cows have 
been fed or not. 

CM: Total capacity of your coolers 
(in gallons). 
CO$: Type of cow. 
DA: Day. 

D$: Type of cow that died. 
ES: Total point value of your silos. 
F: The farm you picked (1, 2, or 3). 
FV: Current value of your farm. 
G: Gallons of milk in your cooler. 
GU: Guernsey cows owned. 
HO: Holstein cows owned. 
I: Time delay loop variable. 
JE: Jersey cows owned. 
K: Gallons of milk that didn't fit in 
your cooler. 

L: Interest rate on your loan. 
LA: Large coolers owned. 
LO: Loan balance. 
MC: Cash on hand. 
MI: Gallons of milk produced that 
day. 

OP, OP$: Input from keyboard. 
P: Price per acre of land. 
PB: Used to determine if bid is high 
enough to buy cow. 
PE: People at the auction. 
PER: Percentage of silo capacity ac- 
tually filled. 

PV: Number of days of good grass 
left in your pasture. 
S: Cubic feet of feed in your silos. 
SH$: Color of man's shirt. 
R: Random number. 
VA: Gallons of milk each cow gave 
that day. 

VB: Value of farm at beginning of 
game. 

W: Number of acres bought. 
WP: Your total points. 
WW: Used to value W at end of 
game. 



DAIRY FARHING ~ PROGRAM LISHNG 
Instructions and initialization. 

20 cls.'print.'print:print.*print" in this sihulahon of dairy fa 
rming, you hill have 500,000 dollars to buy a farm and get sta 
rted in you? dairying career." 

30 print'.print" the object of the gw€ is to accumulate 10,000 
points. you can get points for things such as milk, cash, lan 



D, COWS, ETC."! PRINT! print: PRINT 
10 GOSU61670:GOSUB1650 

50 PRINTtPRINT" THE FIRST THING YOU DO IS BUY A FARM. 
EACH FARM CONSISTS IF 1 BARN, 1 SMALL HOUSE, 1 
LARGE SILO," 

60 PRINT"! REFRIGERATED MILK COOLER, AND 1 HAYSHED. THE «4.Y DIF 
FERENCE IS THE Nl^CER OF ACRES THAT THE FARM mS FOR GRAZ 
ING." 
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70 PRM:PRINnAE(9)"FARM *","!", "2", "3" 

80 PRINnAB(9)"ACRES","H0","115","95" 

90 PRINnAB(9)"PRICE", "$139, 000", "$399,000", "$3*9, 000" 

100 CLEftR 275',IfPUT"miCH FARM HOLD YOU LIKE";F 

no IF F<lORF^3T}CNGOTO100ELSE120 

120 ON F GOTO 130,110,150 

130 A=HO:HC=61000!FV=139000}FM=-20',GOT0160 

HO A=115;MC=101000!FV=399000:PV=-12!GOT0160 

150 A=95:HC=1310fl0JFV=369000!PV=-7:GOTO160 

160 RANDOH:BN=i:G=0!PER=0!DA=ltCE=0!CM=500:SC=8000:LO=0!L=0!HP=0 

:LA=1!SA=0;ES=6!HW=900 

The auctioTi. 

170 CLStPRINT" NOW n'S TIME TO GO TO THE AUCHON TO BUY SOME 
CAnLE."!F(»I=lTO500!NEXTI 

180 CLSJPRINT" TICRE ARE FIVE DIFFERENT KINDS OF COHS." 
190 PRINT'lISTED IN ORDER OF MILK PROOUCHON Tt€Y GO ..." 
200 PRINT" * 1. HOLSTEIN" 
210 PRINT" * 2. mm SWISS" 
220 PRINT" * 3. AYRSHIRE" 
230 PRINT" » 1. GUERNSEY" 
m PRINT" * 5. JERSEY" 
250 INPUT"WHICH KM) DO YOU WANT TO BUY (1-5) "JOP 
260 IF OP <1 OR 0P>5THEN GOTO250 
270 ON OP GOTO 280,290,300,310,320 
280 CO$="HOLSTEIN";BID=1500;Pe=1500:GOTO330 
290 C0$="BROVW SHISS"!BID=HOO!PB=HOO:GOT033I 
300 CO$="AYRSHIRE":Bro=1325:PB=1325:GOT0330 
310 CO$="GUERNSEY";BID=1250:Pe=1250:GOTO330 
320 CO$="JERSEY":BID=1185tPB=1185;GOT0330 
330 CLS:PE=RND(50)-l!FPE<10THENGOTO330ELSEPRINT" THER 
E ARE" JPE; "PEOPLE AT THE WJCHON TODAY. "JPRINT" 
THE NWeER OF PEOPLE AT THE AUCTION 

MAY DETERMINE HOW HIGH YOU HAVE TO BID" 
3^ PRINT" THE BIDDING W THIS ";C0$|" HAS JUST BESJN WITH A B 

ID OF $";Bro 

350 PRINT"THE CURRENT BID IS NOW $"5BID;INPUT"D0 YOU WANT TO BID 
AGAIN <Y/N)";OP$;iF0P$="N"THENGOTO520ELSEGOTO36D 

360 INPUT"WHAT IS YOUR BID"!BB 

370 IF BB<BID T^CN GOTO360 

380 IF MC-^<OTHEN PRINT"YOU MN'T HAVE ENOUGH MONEY TO BID THAT 
HIGH!!"ELSEGOTO100 

390 FORI=lTO500:NEXntGOTO350 

too BID=B8!BB=0!IFBID>Pe+(PEi25)+RM)(500)THENGOTO130 

110 BR=RND(25)!ffBR<llTHDffiOT0110ELSEBID=eiD+BR 

120 GOTO350 

130 IFCO$="HOLSTEIN"THENHO=HO+iaSE«)TO110 

110 IFCO$="H«OHN SWISS"THENBS=BS+lELSEGOTO150 

150 IFCO$="AYRSHIRE"THENAY=AY+lELSEGOTO160 

160 IFCO$="GUERNSEY"THENGU=GU+lELSEK)TO170 

170 IFC0$="JERSEY"THENJE=JE+1 

180 MC=«C-eiD:CLStPRINTCfff:$(23):PRINTei50," SOLD !!!!"! 

PRINT" FOR $";BID 

190 INPUT"D0 you want TO BUY any MORE COWS (Y/N)";OP$ 

500 IF (P$="Y"TtCNGOTO180 

510 IF DA=>lTHENGOTO580ELSEGOTO570 

520 R=RND(3)J0N R OiBB 510,550,560 

530 PRINT"SOLD, TO THE MAN IN T>C ";SH$;" SHIRT.";FORI=1T0500:NE 

)ai!GOT0190 

510 SH$="YELLOW"!RETURN 

550 SH$="GREEN":RETIFN 

560 9<$="STRIPED"JRETU»I 



Displ3>js everything yoo own and asks yoo what transaction you 
would like to hake. 

570 CLStPRINT" NOW THAT YOU ARE D»€ BUYING YOUR CATTLE, YOU MU 



ST MILK THEM <M) SELL THE MILK FOR A PROFH. NOW LH'S GO MIL 

K THEM COMS."tGOSUB1670 

580 GOSUB 1650 

590 PRINT" DAY" IDA?" YOU WK. V", 

INT(MC):PRINT"Y0UR farming equipment CONSISTS OF! 

600 C=H0+BS+AY+GU+JE 

610 PRINT"1 N0";FJ"FARH HITH";A!"ACRES of land AND";BNr'BARN(S). 

II 

620 GOSUB1680 

630 PRINT"YGU HAVE";iNT(G);"GALiONS 0^ MILK IN YOUR"|CM;"GALLON 

COOLER(S)." 

610 PER=S/SC!PRINT"YOUR SILO(S) ARE"|(PERilOO)J"X FULL" 

650 GOSUB1680 

660 PRINTTAB(26)"* OF COWS" 

670 PRINT" WLSTEIN BfSM SWISS AYRSHIRE GUERNSEY 

JERSEY" 
680 R=610;PRINTeR+5,HO! JPRINTeR+20 ,KJ :PRINTeR+35,AY; tPRINTBR+IB 
,GU;;pRINTeR+59,JE! 
690 PRINT!GOSUB1680 

700 PRINT"! . MILK COWS 2. BUY FEED 3. BUY COHS" 
710 PRINT"1. FEED COWS 5. TAKE COWS TO PASTURE 6. SELL MUK 

II 

720 INPUT"ENTER OPHWJ (0 TO CONTINUE). "J OP 

730 F W><1THENGOT01700 

710 IF OP>6THENGOT070fl 

750 IF 0P=3THENZ=lELSEG0T076fl 

760 ON OP GOTO 770,980,180,1130,1280,1150 

Milking the cows, 

770 IF PA>0THENPRINT"YOU'VE ALREADY MILKED THEM TODAY! !"ELSEGOTO 

800 

780 FORI=lTO750:NE)(n 

790 GOTO580 

800 MI=0!GOSUEil650 

810 VA=RND(2)+RND(3)+(RW)(9)/10)5VA=VA« 
820 IFHO>0THENPRINr"YOUR HOLSTEIN COW(S) GAVE" JHOiVA! "GALLONS OF 
MILK"ELSEG0T083fl 

830 VA=VA-.2!IFBS>0TieiPRINT"YOUR BROWN SWISS COW(S) GAVE"5b5iVA 
{"GALLONS OF MILK"ELSEK)TO810 

810 VA=VA-.2JIFAY>0THEfffRINT"YOUR AYRSHIRE COW(S) GA^"{AY«VA|"G 
ALLONS OF MILK"ELSEGOTO850 

850 VA=VA-.2!IFGU>0THENPRINT"YOUR OERNSEY COW(S) GAVE"}GUiVA;"G 
ALLONS OF MILK"ELSEG0T086fl 

860 VA=VA-.2!IFJD0THENPRINT"YOUR .ERSEY COW(S) GAVE" IJEiVA! "GAL 
LONS OF MILK" 
870 PRINT 
880 MI=MI+(H0»!<VA+.8))+(BSi(VA+.6))+(AYi(VA+.1))+(GUi(VA+,2))+(J 

exva):pa=i;g=g+mi 

890 R=RND(5fl)-i:iFR>370RR<lflTHENH)T0890 ELSEFCE=0THENPRINT"SIN 
CE YOU DIDN'T FEED YOUR C0WS,"!R;"PEW»)T OF THE MILK HASN'T GO 




continued on next page 
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continued from previous page 


1370 PRINTtPRINT" COWS ARE EAHNG GRASS":F0RI= 


00 ENOUGH TO BE SOU) AM) HftS H-l-N Wm 0UT."ELSEGOT091fl 


lTO200:NE)(n 


900 R=R/10fl'.G=G-(HIiR) 


1^0 PRINTtPRINT" COWS ARE DONE EATING" •.F0RI=1 


910 IF GXWRIHT 


TO20fl!NEXTI 


920 IF G>CHT>CNPRINT"YOUR rm FR ISN'T BIG ENOUGH TO HOLD ALL OF 


1390 PRINTtPRINT" COWS (HE GOING BACK TO B<«N"!FO 


im (OLK... 


RI=lTO200;NE)ai 


YOU HTl 1 HAVE TO SaL THE EHRA HILK AT %.7^ PER GALLON." iELSEGO 


1100 ce=i:pv=pv+i 


TO970 


1110 GOTO580 


930 K=G-C«;iFK>0MC=«C+(K«,75):G=Ci1 


1120 CLS!PRINTM66."Y0U ALREADY FED THEM TODAY" 


910 F lOOPRM 


1130 F0RI=lTO850:NE)fri 


950 IF IOOPRIMT"YOU GOT ♦"5(K«.75);"FDR THAT E)aRA MIU." 


mo GOT0580 


960 K=0 




970 GOTO 1660 


Selling nilk. 


Buyinq grain. 


1150 GOSUB1650 




1160 IF G<OTHENG=0 


980 OHB 1650 


1170 FG<ZO0 THEN PRINTei59,"Y0U DON'T HA^ ENOUGH MILK TO SELL 


990 PRINT"YOUR SILO IS"!(PtkilOO);"'X FULL." 


YET!"EL^GOTO1500 


1000 PRINT"n COSTS »Z.50 A DAY TO FEED A COH." 


1180 FORI=lTO950:fen 


1010 PRINT"YOU HA\t";C!"COHS AW) V';iNT(HC)5"." 


1190 GOT0580 


1020 PRINT"HOH mH DAYS HORTH OF FOOD WOULD YOU LIKE TO BUY" 


1500 BP=RND(125) '.IFH'<90THENGOTO15fl0ELSEGOTO1510 


1030 INPUTOP 


1510 BP=H>/10fl!PRINTtPRINr" THE LOCAL MILKMAN HILL BUY YOUR MI 


10« IF 0Pi(C«Z.5>«CTHENPRINT"Y0U DON'T iVWE ENOUGH HONEY"aSEGOT 


LK FOR $";BP|"PER GALL0N."!PRINT" YOU HAVE"|INT 


O1060 


(G) {"GALLONS OF MILK." 


1050 FORI=lTO750JNE)(TI!GOTO1020 


1520 PRINTJIUVT" HOW MANY GALLONS OF MILK DO YOU WISH TO 


1060 IF OP<=0THENGOTO580ELSEGOTO1070 


SELL"50P 


1070 PRINT"THAT COST YOU V'JOPiOC.S! 


1530 IF G-OP<0THENPRINT"YOU DON'T HAVE TtttT MUCH MILK!!"ELSEGOTO 


1080 S=S+0PICX2.5!PER=S/SC 


1550 


1090 MC4C-(0PiCx2.5) 


1510 FORI=lTO35fl!>EXn:GOTO15Z0 


1100 PRINT"YOU tVWE $";INT(MC)J"LEFT." 


1550 MC=MC+(UPiBP):G=G-OP;GOTO580 


1110 IF PER > 1 THEN PKINT"YOUR SILO IS FULL! ! !"aSEGOTO1120 




1120 GtAit£1670!GOTOS80 


Taking out a loan. 


Feeding the co«s. 


1560 CLS}PR[NTM65,"Y0U HAVE SHiNT TOO MUCH MONEY ... 




YOU WTl 1 HAVE TO TAKE OUT A LOAN." 


1130 IF CD0THENGOTO1250 ELStGUSUB1650 


1570 FORI=lT05flO:NE)(n 


1110 0P$="" 


1580 PRINT"YOU ARE ♦"JABS(MC)J"IN DEBT." 


1150 ff S - (CI2.5) < THEN PRINTM60,"BUT YOU DON'T HAVE ENOUG 


1590 L=RND(19);PRINT"THE CUHKtNT INTEREST RATE IS"!L;"r 


H TO htU) ALL 


1600 INPUT"Hn ENTER TO ATTFPT THE L0AN.";LI 


YOUR COMS. YOU WTII HAVE TO BUY MORE FtlJ) FIRST. "ELSEGOTOl 


1610 L0=LO+ABS(INT(MC) ) 


180 


1620 MC=0 


1160 FC«I=lTOH00:NE)fn 


1630 L=L/30fl 


1170 GOTO580 


1610 RETURN 


1180 PRDfTtPRINTtlNPUT" HH ENTER TO hthU COHS (D FOR D 




ON'T HJ:D)";OP$ 


Short subroutines. 


1190 IF0P»="D"GOT0580 




1200 s=s-(ci2.5):per=s/sc:pv=pv-i 


1650 CLSJPRIHTe21,"DAIRY FARMING" !Ktl URN 


1210 PRINnAB(20)"COHS ARE BEING FED" 


1660 PRINT !INPUT"Hn ENTER TO Ct»fTINUE";OP{GOTO580 


1220 F0RI=lTO500:NE)(n 


1670 INPUT"Hn ENTER TO CONTINUE" ;0P^ RETURN 


1230 CE=1 


1680 PRINT STRING$(63,":");ktlURN 


1210 GOTO580 


1690 PRINT :iNPUT"Hn ENTER TO CONTINUE" JOP 


1250 CLS:PRINTe161^"Y0U mX. ALREADY FED THEM TODAY" 




1260 FORI=lT0850:NEXn 


Aslts what you want to buy or sell. 


1270 GOT058ft 






1700 GOSUB1650 


Talking the cows to the pasture. 


1710 PRINT!PRINT"AT THIS TIME YOU MAY BUY ANY NECESSARY THINGS F 




OR YOUR FARM." 


1280 FCD0T1CNGOTO1120ELSEGOSUB1650 


1720 IF C>(BNJt35) THEN PRINnAB(20)"(YOU fffED A BIGGER BARN!)"EL 


1290 PRINT 


StPRM 


1300 IF PV>9THENPRINT"Y0UR COHS HAVE EATEN ALL OF THE ROnn GRASS 


1730 RnSIK1680 


"ELSEGOTO1310 


1710 print: PRINT" 1. BUY MORE LAND FOR GRAZING" 


1310 PRINT"IN T}£ PASTURE. IN OTiCR WORDS, YOU WTil httVE TO LCT" 


1750 PRINT"2. SELL LAW) FOR QUICK CASH" 


1320 PRINT"THE GRASS GROW FOR A FEW DAYS." 


1760 PRINT"3. BUY A LAl^ER OR SMAIl FR COOLER" 


1330 PRINT :GOT01690 


1770 PRINT"1. BUY A BIGGER BARN (EACH BARN HOLDS 25 COWS)" 


1310 IFC>ATHENPRINTM55,"Y0U NFFD TO BUY MORE LAND! ! !"ELSEG0T013 


1780 PRINT"5. BUY A LARGER SILO" 


60 


1790 PRINT"6. SELL FARM AM) END GWt" 


1350 FQRI=lTO500JNE){ntGOTO1700 


1800 PRINr;iNPUT"ENTER DPHON NUMER DESIRED (0 TO CONT.)";OP 


1360 PRINTtPRINT" COHS ARE ENTERING PA8TIJRE";F0R 


1810 F M*<1THENGOTOZ510 


I=lT0200:NE)(n 


1820 IF OP>6THENGOTO1800 
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1830 ON OP GOTO 1810,1930,2030,2110,2190,2330 

Buying land. 

1810 GOSUBl^SO 

1850 P=«M)(1750);ff P<850 THEN GOT01850 aSEPKENT: PRINT' W ACRE 

OF LAM) HHI COST YOU ♦"5P 

1860 IHPUT"HOH HW<Y ACRES DO YOU WISH TO BUY"JOP 

1870 IFOPiP>«CTHEN PRINT"YOU DON'T HA^ ENOUGH M0NEY"aSEGOTO190 



1880 FORI=lTO250:NE)fn 

1890 GOTO1860 

1900 ffGP=OTHENGOT01700 ELSEPRINT"T}ttT COST YOU ♦"|(OPiP);". Y 

OU NOH HA<^ $";MC-(Pi0P)! 




1910 MC=HC-(PiOP):A=A+flP 
1920 GOTO1690 

Selling land. 

1930 GOSUB16S0 

1910 P=RND(1750):F P<950THENGOT01910aSEPRINT;PRINT"Y0U MAY SEL 

L aft GIVEN tm»n of land for %'",? 

1950 INPliT"HOW f*WY ACRES DO YOU WSH TO SELL";OP 

1960 F0P<inCNGOTO1700aSEPRINT"YOU GOT $";(OP«P);"FOR THAT LAN 

D." 

1970 IF (A-OPXCTHENGOTO2020 

1980 PRINT"YOU NOW HAVE ♦";i1C+(0PiP)J 

1990 MC=W+(OPiP)JA=A-OP 

2000 GOT01690 

2010 HC4tC-2500!C«=CHv2005IF MC<0GOSUB1560 

2020 CLS*,PRIMTM62,"Y0U DON'T miE ENOUGH ACRES LEFT TO SELL! :"*. 

FORI=lT0875tNEXn'.GOTO170fl 



Buying nilk coolers. 

2030 GOSUB1650 

2010 0P»="" 

2050 PRINT:PRINT!INPUT" do YOU KANT a 

<L>ARGE COOLER - *1,500 

<S>«ALL COOLER - $2,500 
<N>ONE OF AHK€";OP$ 
2060 F OP»="N"T)€NGOTO1700aSEIFOP«="L"TICNGOTO2070aSEIFOP*="S 
"THENGOTO2090ELSEGOTO2030 

2070 MC=«C-1500!CM=CH+500!LA=LA+1!F MC<0GOSUB1560 
2080 GOTO1700 

2090 MC=«C-250fl!CH=C«+200tSA=SA+l'.IF MC<0GOSUei560 
2100 GOT01700 

Buying barris. 

2110 GOSUB1650 

2120 0P»="" 

2130 PRINTe275,"A BARN COSTS $5,000." 

2110 PRINTe520,"(ff YOU DON'T Wta IT, HIT ANY OTHER KEY)" 

2150 PRINTe319,"";iNPUT" HIT ENTER TO PURCmSE BARN 

.";op$ 

2160 IFOP$=""Tf£NGOTO2170ELSEGOTO1700 
2170 BN=BN+i;MC=MC-50flO:F MC<0GOSUB1560 
2180 GOTO1700 



$7,50 



2210 INPUT" WHICH SILO MOULD YOU LLl^ TO BUY"iOP 

2250 F0P<10R0P>1GOT0221fl 

2260 ON OP GOTO 2270,2290,2310,2320 

2270 HC=«C-7500!SC=SC+8000!ES=ES+6;F MC<OGOSUB1560 

2280 GOTO1700 

2290 MC=«C-6000:SC=SC+7000}ES=ES+5;F MC<OGOSUB1560 

2300 GOTO1700 

2310 HC=>«:-5000tSC=SC+6000:ES=£S+i:F MC<0GOSUB1560 

2320 GOTQ1700 

Selling the farn. 

2330 GOSUB1650 

2310 m F GOTO 2350,2360,2370 

2350 VB=139000:H=110JGOT02380 

2360 VB=399000{H=115:GOT02380 

2370 VB=36900fl:H=95!GOTO2380 

2380 PRINT :PRINT"HHEN YOU BOUGHT YOUR FARM IT HAS WORTH $";VB 

2390 PRINT"(THIS INCLUDES THE";H5"AC(«S TW FARM CAME KITH)" 

2100 PRINT"HiT Vm H'S WORTH $";fv+int(fv/io);:print 

2110 GOSUB2520!IF M<OM=0 

2120 F A-W>OTHENPRINT"T}e LAND YOU BOUGHT IS NOW WORTH $"!MaSE 

PRINT"Y0U DIDN'T BUY ANY ADDITIONAL LAND" 

2130 R=RN0(35)-1:PRINT"Y0UR COWS ARE WWlTH $"!Cx(1100+(Ri35))', 

2110 PRINT;PRINT"Y0U HAI^";INT(HP) {"POINTS" 

2150 print: INPUT" ARE YOU SURE YOU WANT TO SELL YOUR FARM (Y/N)"*, 

0P$ 

2160 F OP$="N"TJeiGOT01700ELSEGOT02180 

2170 FV=FV+INT(FV/9)!FV=(FV+MM)+Cx(1100+(Ri35)) 

2180 print:print"you have just been paid, in ca^, $";fv; 
2190 MC=Mc+Fv; print :print"you now mvE $";mc 

2500 print :i(«nJT"DO YOU Wm TO PLAY AGAIN (Y/N)";0P$ 

2510 F OP$="Y"THENRUNELSEEND 

2520 W=A-W:R=RND(2000) :F R<WHGOT02520 continued on next page 



Buying silos. 






2190 GOSUei650 






2200 PRINTtPRINTJPRINT" 

0" 

2210 PRINT" 




» 1. LARGE SILO 


♦ 2. 


MEDIUM SILO - $6,000 


2220 PRINT" 


* 3. 


Smi SILO - $5,000" 


2230 PRINT" 


» 1. 


NO SILO" 
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continued from previous page 

2530 M=(HiR) {RETURN 

Sets up the next day. 

2510 FV=f^HINT(FyI.01):HH=«H+10:PA=0JDA=Dft+l;LO=INT(LO)+INT(LO«L 
) 

Checks to see if you fed your cons} if not, one dies. 

2550 IF«C>0ANDLO>0THENGOTO2630 

2560 IFCE=lTHENGOTO2730ELSEIFC=fl"mENGOTO2730ELSER=RND(5)!ON R GO 

sue 2580,2590,2600,2610,2620 

2570 GOSUei650:PRINTM18,"SINCE YOU DIDN'T FEED YOUR CO«S, ONE 

F YOUR ";d$;" cohs DiED.":F(m=iToioootfern;GOT02730 

2580 D»="HOLSTEIN"{IF HO=0THENGOTO2560ELSEHO=HO-l '.RETURN 
2590 D«="SHISS";IF BS=0nCNGOTO2560ELSEBS=BS-l!RETURN 
2600 D$="AYRSHIRE":F AY=0THENGOTO2560ELSEAY=AY-l '.RETURN 
2610 Ot="GUEW<SEY":iF GU=0THB«fflTO2560ELSEGU=GU-l!RETURN 
2A2J D»="JERSEY":iF JE=OTHENGOT02560ELSEJE=JE-1:RETURN 

haking paywent on your loan (if you have one). 

2630 GOSUB1650 

2640 PRINT!PRINT;PRINT;BffUT"HOlH.D YOU LIKE TO HAKE A PAYMENT ON 
YOUR LOAN (Y/N)";OP$ 

2615 IFOP$="N"TtCNPRINT"YOU HAi^ $";L0;"GUT ON YOUR L0AN":G0T027 
10 

2650 PRINT"YOU HAVE ♦";L0;"0UT OH YOUR LOAN A>«) ♦"{HCI"." 
2660 INPUT"m« MUCH HOJLD YOU LIKE TO PAY") OP 
2670 IFOP=0THENGOTO2700ELSEIFHC<OPTHENPRINT"YOU DON'T HAVE ENOUG 
H M»tY"ELSEGOTO2690 
2680 F0RI=lT0150:fOTI'.G0T02650 

2690 LO=LO-OP!MC=MC-OP:IFLO<=OTHENPRINT"YOUR loan IS PAID OFF!!" 
!Faa=lTO750 !fEXn:OP=0;GOTO2560 
2700 PRINT"Y0U STILL HAVE $"',LO;"OUT ON YOUR LOAN." 
2710 FORI=lTO100flJNEXTI 
2720 GOTQ2560 

Adds up all your points and tells you how Many points yo<j have. 



2730 ffHO=0THENGOTO2710ELSEMP=«P+(HO/3) 

2710 IFBS=0THENGOTO2750aSElf=HP+(BS/1) 

2750 IFAY=OTHENGOT02760ELSEHP4P+(AY/5) 

2760 ffGU=0THENGOTO2770ELSEHP=HP+(GU/6) 

Z770 IFJE=0THENGOTO2780ELSEHP=«>+(JE/7) 

2780 IFBN=0THENGOTO2790ELSEMP=«P+(BNi5) 

2790 ffG=0THENGOTO2800ELSEVP=HP+(G/500) 

2800 HP4)P+ES 

2810 W>=HP+(A/5) 

2820 HP=HP+LAi2 

2830 HP4P+SA 

2810 ffMC=0THENGOTO2850ELSEHP=HP+(MC/10000) 

2850 FLO<=flTHENGOT02860ELSEMP4P-(LO/100) 

2860 GOSUB1650 

2870 PRINTei70,"YOU HAVE";iNT(HP) {"POINTS 

("5(INT(kP)/10000)«100;"Z OF YOUR QOfLV 

2880 CE=0'.PA=0;FORI=lTO700'.NE)fn 



If you have the winning 10,000 points, the coMputer gives you a 
rating based on the nuHber of days it took to achieve your goal. 

2890 F W>>9999THENGOTO2900ELSEGGTO580 

2900 GOSUB1650 

2910 0P»=" ! ! YOU DID n ! ! YOU DID H ! ! YOU DID H 

! !"!F0RI=1T013;PRINT0P$'.NEXTI 

2920 IF DA>125THEN0P*="NEEDS IMPROVEMENT - A LOT"ELSEGOTO2910 

2930 GOTO 3010 

2910 F D>118THEN0P*="C0ULD BE BETTER"ELSEGOTO2960 

2950 GOTO 3010 

2960 F DA>112Tl€M)Pt="AVERAGE"ELSEGOTO2980 

2970 GOTO 3010 

2980 F DA>105THENOP$="PRETTY GOGO !"ELSEGOTO3000 

2990 GOTO 3010 

3000 F DA<=105THENOPt="DAIRY FARMER !!" 

3010 PRINT"YOU HAVE 10,000 POINTS RAHNG J "lOP* 

3020 INPUT"DO YOU WISH TO PLAY AGAIN (Y/N)"',OP$:iFOP*="Y"TJ€J«UN 
ELSEEND 
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MURA 



Mura's "HI STEPPER" is a pocket size AIVI/FIVI Stereo Radio 
designed for people on the move. "HI STEPPER" features include • 
Automatic and manual stereo switching • Slide rule tuning • Stereo 
balance control • LED stereo indicator • Powered by 3 AA batteries 
(that provide 10 times longer playing time than a 9V battery) or with DC 
adaptor • Built-in pocket/belt clip • Weighs only 9.1 oz. including 
batteries • Measures 1.2 x 3.1 x 4.7 in. • Carrying case included. The 
"HI STEPPER" is finished in a handsome ebony high gloss. 

The ultra lightweight headset {1.6 oz., less cord) is Mura's model hs. 
has • Rare earth (samarium cobalt) drivers • Tapered mylar speakers 
• A 4 ft. lightweight cord with a 3.5mm plug. This has also features a 
foldable headband that permits compact storage and convenient carrying 
when not in use. 

#99-05 $59.95 

(plus $2.50 shipping and handling) 




TStlHflRDSIIX 



6 South .St .Milford. NH 03055 (603)573-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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COMPUTER GRAPHICS 




Computer-aided Pattern Generation 

by Joan Truckenbrod 

Creating patterns with the aid of a 
computer is very exciting as a wide 
variety of designs can be generated. 
Numerous different shapes, forms 
and figures can be used to create in- 
tricately detailed ornamental pat- 
terns. Repeating a figure at regular 
intervals on a grid generates a pat- 
tern. For instance, a pattern can be 
created on graph paper by drawing 
the same figure in each square. The 
figure used to create the pattern is 
described in terms of X and Y coor- 
dinates. The number of points used 
to describe the figure is included in 
line 40 in the program in the variable 
NP. The X and Y coordinates are 
listed sequentially in the DATA state- 
ment in Hne 80. The size of the figure 
and the resolution of the graphics 
screen determine the number of times 
the figure is repeated horizontally 
and vertically. For example, on the 
Apple II Microprocessor system a 
figure 20 units by 20 units can be 
repeated 14 times across the screen 
and nine times down the screen. 




Carefully calculate the size of the 
figure and the number of times it is 
repeated in relationship to the resolu- 
tion of the graphics screen. As the ex- 
amples of this pattern program il- 
lustrate, the character of the pattern 
is dependent upon the design of the 
figure used to create the pattern. This 
figure can be a closed shape, a line, a 
shaded figure or a figure consisting 
of varying gray values. Figures can be 
curved or straight Hne forms. Pic- 
torial shapes can be used as well as 
abstract forms in creating patterns. 

A pattern is created in a series of 
steps with the aid of a computer. 
First the figure is constructed in an 
imaginary box 20 units across and 20 
units down with the upper left-hand 



corner of the box at the origin (0,0), 
and the X and Y coordinates of each 
point in the figure are identified. The 
figure is initially drawn in this posi- 
tion and then is repeated at regular 
intervals in each box of an imaginary 
pattern grid. This grid is filled with 
the pattern elements from left to 
right, and top to bottom. The figures 
are repeated in the horizontal row by 
incrementing all of the X coordinates 
in the figure by a given value. 




Generally the value of this increment 
is the width of the shape so that the 
shapes touch one another as they are 
repeated. In the following pattern 
generation program the horizontal 
repetition of the figure takes place in 
the B FOR/NEXT loop. After the 
horizontal row of figures is com- 
pleted the figure must be moved 
down the height of the figure in order 
to construct another row of figures. 
The figure is moved down by adding 
the height of the figure to all of the Y 
coordinates defining the figure. After 
the Y coordinates are incremented, 
another horizontal row of figures can 
be drawn from left to right by in- 
crementing the X values again. 
However, since it is necessary to 



always begin a row from the left side, 
the X coordinates in the X array must 
not be changed, rather this increment 
value can be added in the HPLOT 
statement. The Y coordinates do not 
need to be returned to their original 
values and thus cumulative Y values 
can be used. In the pattern program 
the R FOR/NEXT loop increments 
the Y coordinates so that a series of 
horizontal rows will be drawn. 

Using the computer to create a pat- 
tern provides the designer with a new 
system to develop a wide range of 
patterns. A regular pattern is created 
with the repetition of one shape or 
figure on a grid. More variation can 
be created in a pattern by 
systematically changing the color, 
shape, and/or size of the pattern ele- 
ment as it is repeated. In this instance 
the pattern consists of the repetition 
of a series of related shapes rather 
than the repetition of a single shape. 
The potential for creating a wide 
variety of patterns provides an ex- 
citing challenge for the beginning or 
advanced designer. Variations on this 
general pattern generation program 
will be discussed in future issues of 
SoftSide. 









10 

15 

20 

30 

40 

45 

50 

60 

70 

80 

85 

90 

100 

110 

120 

i5o 

140 
150 
160 
170 
180 
190 
2O0 
210 



REM 
REM 
DIM 
REM 
NP = 
REM 
FOR 
READ 
NEXT 
DATA 
HGR 
REM 
FOR 
REM 



PATTERN GENERATION PROGRAM 
BY JOAN R. TRUCKENBROD 



X(25)fY<25) 
NP = NUMBER OF POINTS IN THE FIGURE 
7 
REM X AND Y COORDINATES DEFINE THE PATTERN ELEMENT 
I = 1 TO NP 
X(I)fY(I) 
I 

0F9jl2fO»20T8f2O»2Of8.20fl2f3»0r9 
HCOLOR= 7 
THE R LOOP KEEPS COUNT OF THE VERTICAL ROW NUMBER 
R = TO 8 
THE B LOOP KEEPS COUNT OF THE HORIZONTAL COLUMN NUMBER 
FOR B = TO 12 

REM MO^'E THE PEN TO THE FIRST 
HPLOT X(l) + B « 20tY(1) + R * 



POINT IN THE FIGURE 
20 



2 
TO 



TO NP 
X(P) + 



B * 20»Y(P) + R « 20 



REM THE FOLLOWING LOOP CONNECTS THE REMAINING POINTS IN THE FIGURE. 

FOR P ^ " ' ■■" 

HPLOT 

NEXT P 

NEXT B 

NEXT R 

END 
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A REMARKABLE MAGAZINE 




GPeative 

"The beat covered by Creative Computing 
is one of the most important, explosive and 
fast-changing. "—Alvin Toffler 



David Ahl. Founder and 
Publisher of Creative Computing 



You might think the term "creative com- 
puting" is a contradiction. How can some- 
thing as precise and logical as electronic 
computing possibly be creative? We think 
it can be. Consider the way computers are 
being used to create special effects in 
movies— image generation, coloring and 
computer-driven cameras and props. Or an 
electronic "sketchpad" for your home 
computer that adds animation, coloring 
and shading at your direction. How about a 
computer simulation of an invasion of killer 
bees with you trying to find a way of keep- 
ing them under control? 

Beyond Our Dreams 

Computers are not creative per se. But 
the way in which they are used can be 
highly creative and imaginative. Five years 
ago when Creative Computing magazine 
first billed itself as "The number 1 maga- 
zine of computer applications and soft- 
ware," we had no idea how far that idea 
would take us. Today, these applications 
are becoming so broad, so all- 
encompassing that the computer field will 
soon include virtually everything! 

In light of this generality, we take "appli- 
cation" to mean whatever can be done with 
computers, ought to be done with comput- 
ers or might be done with computers. That 
is the meat of Creative Computing. 

Alvin Toffler, author of Future Shock and 
The Third Wave says, "I read Creative Com- 
puting not only for information about how 
to make the most of my own equipment but 
to keep an eye on how the whole field is 
emerging. 

Creative Computing, the company as 
well as the magazine, is uniquely light- 
hearted but also seriously interested in all 
aspects of computing. Ours is the maga- 
zine of software, graphics, games and sim- 
ulations for beginners and relaxing profes- 
sionals. We try to present the new and im- 
portant ideas of the field in a way that a 1 4- 
yearoldoraCobol programmer can under- 



stand them. Things like text editing, social 
simulations, control of household devices, 
animation and graphics, and communica- 
tions networks. 

Understandable Yet Challenging 

As the premiermagazineforbeginners, it 
is our solemn responsibility to make what 
we publish comprehensible to the new- 
comer. That does not mean easy; our 
readers like to be challenged. It means 
providing the reader who has no prepar- 
ation with every possible means to seize 
the subject matter and make it his own. 

However, we don't want the experts in 
our audience to be bored. So we try to 
publish articles of interest to beginners and 
experts at the same time. Ideally, we would 
like every piece to have instructional or 
informative content— and some depth- 
even when communicated humorously or 
playfully. Thus, our favorite kind of piece is 
acessible to the beginner, theoretically 
non-trivial, interesting on more than one 
level, and perhaps even humorous. 

David Gerrold of Star Trel< fame says, 
Creative Computing with its unpreten- 
tious, down-to-earth lucidity encourages 
the computer user to have fun. Creative 
Computing makes it possible for me to 
learn basic programming skills and use the 
computer better than any other source. 

Hard-hitting Evaluations 

At Creative Computing we obtain new 
computer systems, peripherals, and soft- 
ware as soon as they are announced. We 
put them through their paces in our Soft- 
ware Development Center and also in the 
environmentforwhich theyare intended- 
home, business, laboratory, or school. 

Our evaluations are unbiased and accur- 
ate. Wecompared word processing printers 
and found two losers among highly pro- 
moted makes. Conversely, we found one 
computer had far more than its advertised 
capability. Of 16 educational packages. 



only seven offered solid learning value. 

When we say unbiased reviews we mean 
it. More than once, our honesty has cost us 
an advertiser— temporarily. But we feel 
that our first obligation is to our readers and 
that editorial excellence and integrity are 
our highest goals. 

Karl Zinn at the University of Michigan 
feels we are meeting these goals when he 
writes. "Creative Computing consistently 
provides value in articles, product reviews 
and systems comparisons ... in a magazine 
that is fun to read." 

Order Today 

To order your subscription to Creative 
Computing, send $20 for one year (12 
issues), $37 for two years (24 issues) or $53 
for three years (36 issues). If you prefer, 
call our toll-free number, 800-631-8112 (in 
NJ 201-540-0445) to put your subscription 
on your MasterCard, Visa or American Ex- 
press card. Canadian and other foreign 
surface subscriptions are $29 per year, and 
must be prepaid. We guarantee that you 
will be completely satisfied or we will re- 
fund the entire amount of your subscrip- 
tion. 

Join over 80,000 subscribers like Ann 
Lewin, Director of the Capital Children's 
Museum who says, "I am very much im- 
pressed with Creative Computing. It is 
helping to demystify the computer. Its arti- 
cles are helpful, humorous and humane. 
The world needs Creaf/Ve Computing. 

GPeative 

GOIRp»tiRg 

Attn: Elyse 

P.O. Box 789-M 

Morristown, NJ 07960 

Toll-free 800-631 -81 12 

(In NJ 201-540-0445) 
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The story behind the two best selling 
computer games books in the world. 

Computer 
Gaines 



by David H.Ahl 

Everybody likes games. Children like tic 
tac toe. Gamblers like blackjack. Trekkies 
like Star Trek. Almost everyone has a favor- 
ite game or two. 

lt.Startedin1971 

Ten years ago when I was at Digital 
Equipment Corp. (DEC), we wanted a pain- 
less way to show reluctant educators that 
computers weren't scary or difficult to use. 
Games and simulations seemed like a good 
method. 



So I put out a call to all our customers to 
send us their best computer games. The 
response was overwhelming. I got 21 ver- 
sions of blackjack, 15 of nim and 12 of 
battleship. 

From this enormous outpouring I se- 
lected the 90 best games and added 1 1 that 
I had written myself for a total of 101. I 
edited these into a book called 101 Basic 
Computer Games which was published by 
DEC. It still is. 

When I left DEC in 1974 I asked for the 
rights to print the book independently. 
They agreed as long as the name was 
changed. 







Introduction 


Hi-Lo 






The Basic Language 


High 1-0 


Contents of Basic Computer Games (right) 


Conversion to Other 


Hockey 


and More Basic ComputerGames (below). 


Basics 


Horserace 






Acey Ducey 


Hurkle 






Amazing 


Kinema 






Animal 


King 






Awari 


Letter 


Artillery-3 
Baccarat 


Life Expectancy 
Lissajous 


Bagels 
Banner 


Life 

Life For Two 


Bible Quiz 


Magic Square 


Basketball 


Literature Quiz 


Big 6 


Man-Eating Rabbit 


Batnum 


Love 


Binary 
Blackbox 


Maneuvers 


Battle 


Lunar LEM Rocket 


Mastermind 


Blackjack 


Master Mind 


Bobstones 


Masterbagels 


Bombardment 


Math Dice 


Bocce 


Matpuzzle 


Bombs Away 


Mugwump 


Boga II 
Bunnbrun 


Maze, 
Millionaire 


Bounce 
Bowling 


Name 
Nicomachus 


Bridge-It 


Minotaur 


Boxing 


Nim 


Camel 


Motorcycle Jump 


Bug 


Number 


Ctiase 


Nomad 


Bullfight 


One Check 


Chuck-A-Luck 


Not One 


Bullseye 


Orbit 


Close Encounters 


Obstacle 


Bunny 


Pizza 


Column 


Octrix 


Buzzword 


Poetry 


Concentration 


Pasart 


Calendar 


Poker 


Condot 


Pasart 2 


Change 


Oueen 


Convoy 
Corral 


Pinball 


Checkers 


Reverse 


Rabbit Chase 


Chemist 


Rock, Scissors, Paper 


Countdown 


Roadrace 


Chief 


Roulette 


Cup 


Rotate 


Chomp 


Russian Roulette 


Dealer's Choice 


Safe 


Civil War 


Salvo 


Deepspace 


Scales 


Combat 


Sine Wave 


Defuse 


Schmoo 


Craps 


Slalom 


Dodgem 


Seabattle 


Cube 


Slots 


Doors 


Seawar 


Depth Charge 


Splat 


Drag 
Dr. Z 


Shoot 


Diamond 


Stars 


Smash 


Dice 


Stock Market 


Eliza 


Strike 9 


Digits 


Super Star Trek 


Fattier 


Tennis 


Even Wins 


Synonym 


Flip 


Tickertape 


Flip Flop 


Target 


Four In A Row 


TV Plot 


Football 


3-D Plot 


Geowar 


Twonky 


Fur Trader 


3-D Tic-Tac-Toe 


Grand Prix 


Two-to-Ten 


Golf 


Tic Tac toe 


Guess-it 


UFO 


Gomoko 


Tower 


ICBM 


Under & Over. 


Guess 


Train 


Inkblot 


Van Gam 


Gunner 


Trap 


Joust 


Warfish 


Hammurabi 


23 Matches 


Jumping Balls 


Word Search Puzzle 


Hangman 


War 


Keno 


Wumpus 1 


Hello 


Weekday 


LGame 


Wumpus 2 


Hexapawn 


Word 



Converted to Microsoft Basic 

The games in the original book were in 
many different dialects of Basic. So Steve 
North and I converted all the games to 
standard Microsoft Basic, expanded the 
descriptions and published the book under 
the new name Basic Computer Games. 

Over the next three years, people sent in 
improved versions of many of the games 
along with scores of new ones. So in 1 979, 
we totally revised and corrected Basic 
Computer Games and published a com- 
pletely new companion volume of 84 ad- 
ditional games called More Basic Com- 
puter Games. This edition is available in 
both Microsoft Basic and TRS-80 Basic for 
owners of the TRS-80 computer. 

Today Basic Computer Games is in its 
fifth printing and More Basic Computer 
Games is in its second. Combined sales are 
over one half million copies making them 
the best selling pair of books in recrea- 
tional computing by a wide margin. There 
are many imitators, but all offer a fraction of 
the number of games and cost far more. 

The games in these books include classic 
board games like checkers. They include 
challenging simulation games like Camel 
(get across the desert on your camel) and 
Super Star Trek. There are number games 
like Guess My Number, Stars and Battle of 
Numbers. You'll find gambling games like 
blackjack, keno, and poker. All told there 
are 185 different games in these two 
books. 

Whether you're just getting started with 
computers or a proficient programmer, 
you'll find something of interest. You'll find 
15-line games and 400-line games and 
everything in between. 

The value offered by these books is out- 
standing. Every other publisher has raised 
the price of their books yet these sell for 
the same price as they did in 1 974. 

Moneyback Guarantee 

Examine one or both of these books and 
key some games into your computer. If 
you're not completely satisfied we'll refund 
the full purchase price plus your return 
postage. 

Basic Computer Games costs only $7.50 
and More Basic Computer Games just 
$7.95 for either the Microsoft or TRS-80 
edition (please specify your choice on your 
order). Both books together are $15. Send 
payment plus $2.00 shipping and handling 
to Creative Computing Press, Morris 
Plains, NJ 07950. Visa, MasterCard and 
American Express orders should include 
card number and expirationrdate. Charge 
card orders may also be called in toll-free to 
800-631-8112 (in-NJ 201-540-0445). 

Order today to turn your computer into 
the best game player on the block. 

GPeative 
Gomp»tiR^ 



Morris Plains, NJ 07950 
Toll-free 800-631-8112 

(In NJ 201-540-0445) 
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MATH DECATHLON 




Part 3 

by Jon Voskuil 




Once again, welcome to the Olym- 
pics. This third installment features 
(not one! not two! but...) three 
brand-new events for your program- 
ming and gaming pleasure. 

If this is the first installment of 
"Math Decathlon" that you've seen, 
don't despair, because the first two 
installments are available (along with 
many other goodies) in the March 
and April back issues. Or, if you have 
an Apple tape or disk subscription, 
there's no problem at all — you have 
the complete program (to date) ready 
to load. 

Assuming that you're just a plain 
plebeian, though, and are doing your 
own typing, it's that time again. 
Load the program from tape or disk 
as you've entered it so far, take a few 
deep breaths of fresh springtime air 
(not applicable in certain regions), 
and get ready to caress the keys for 
awhile. 

A few preliminary lines need to be 
added or changed. Line 100 has just 
one slight addition (HTAB 1) to 
make sure it doesn't mess up the 
screen, and lines 310 and 320 are 
filled out with new event titles. Line 
330 is also added, to keep 320 from 
getting overly long. 

EVENT #5: LOWEST 
COMMON DENOMINATOR 

Maybe fractions aren't as exciting 
as starry nights (event #4), but they 
do have their uses. In this game two 
or three fractions are displayed (all 
with 1 as the numerator), and you are 
challenged to find their lowest com- 
mon denominator. After printing the 
instructions in lines 5000-5040, two 
or three random numbers are chosen 
in lines 5050-5090, their size limited 
by the skill level. Line 5080 sends 
control down to 5130 if the skill level 
is zero — that is, if only two fractions 
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are to be generated and displayed. 

The calculating of the L.C.D. is 
done in lines 5110-5120 (for three 
fractions) or 5140-5160 (for two). 
The value of the variable LCD starts 
out, in Hne 5100 or 5130, being equal 
to the product of the denominators, 
D. Then, for all integers from D/2 
down to 2, a check is made to see if 
all the denominators might be evenly 
divisible by that integer. If so, the 
value of LCD is revised downward 
accordingly. This checking, which 
can take a couple of seconds in some 
cases, is done while the fractions are 
being displayed, so that there isn't an 
inappropriate pause in execution. 
You know how embarrassing that 
can be! You know, too (if you just 
look) that the fractions are printed 
either in line 5100 or 5130, and that 
the player's input is grabbed and 
graded in 5170. 

EVENT #6: MAGIC SQUARES 

What you may not know is what a 
"magic square" is. If not, let me 
have the pleasure of introducing 
these marvelous mathematical 
creatures to you. They consist of a 
square grid filled with numbers — 
numbers such that adding them 
across any row, down any column, or 
along either of the corner-to-corner 
diagonals, will always give the same 
sum. This sum is called the "magic 
number". Magic squares can be 
created with additional interesting 
properties as well; but in this 
decathlon event we're sticking with 
simple, third-order (3 by 3) squares. 
If you're interested in finding out 
more about these creatures, your 
local library should have a book or 
two on the topic. 

Lines 6060-6080 generate the 
values for the square. Three numbers 
— A, B, and C — are chosen at ran- 
dom in 6060 and 6070, their limits 
keyed to the skill level as usual. These 
are then used in 6080 to compute the 
nine values for the magic square, 
SQ(1) through SQ(9). Of course, the 
point of the event is that the square is 
displayed with one or more of the 
numbers missing. So lines 6090-6130 
choose one or more locations for the 
missing values. Note that X, Y, and Z 
are not the unprinted numbers, but 
rather the locations (1-9) of those 
numbers in the square. If there are 
only two missing numbers, Z remains 
equal to zero; and if only one, then Y 
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also is zero. Having done all the 
preliminaries, the square is then 
printed by lines 6140-6200, with the 
letters "X", "Y", and "Z" being in- 
serted where appropriate. 

Lines 6210 and following ask the 
player to input the missing 
number(s), and then they compare 
the inputs to the correct values. One 
or more of the variables X$, Y$, and 
Z$ are used as input variables, after 
initializing all of them in 6210. Their 
values are then compared with the 
corresponding values of the SQ array 
in line 6240, and if they all match 
then the player gets ten points. Note 
that the value of SQ(0) is zero, so that 
if Z is zero (meaning that there is no 
third missing number), then SQ(Z) 
will match the value of Z$ (which 
also remains at zero), and will pass 
the scoring test — and the same goes 
for Y. 




^■^isa^gs^^ 



EVENT #7: CLOCK MATH 

Now, if you think that squares of 
numbers are magic, how about clocks 
that have more or less than 60 
minutes in an hour? We start becom- 
ing accustomed to thinking in 60s 
fairly early in life; but if an hour were 
split into 50 minutes, or 85, then we'd 
have some rethinking to do. Which is 
precisely the point of this event. The 
computer sets the number of minutes 
per hour in this new space-time con- 
tinuum, picks a time of day and a 
number of minutes, and asks what 
time it will be after those minutes 
have elapsed. 

This is actually a thinly-veiled exer- 
cise in "modular arithmetic", as you 
astute mathematicians have un- 
doubtedly deduced. If you've never 
heard of modular arithmetic — well, 



this is it! Most of our everyday 
arithmetic is done with a "modulus" 
of 10, or "mod 10". Which merely 
means that after you reach the tenth 
digit (9), you start over with the first 
(0), carrying one over into the next 
place to the left. We use modular 
arithmetic all the time, not only in 
counting hours and minutes (mod 
60), but also in counting eggs (mod 
12), yards (mod 3 or mod 36), and all 
kinds of other good stuff. 

Anyway, this is why there's a 
variable in this event's program lines 
called MOD. It is the number of 
minutes in an hour, and is always set 
to 50 on skill level 0, or some other 
value at higher levels (lines 
7070-7080). Line 7090 sets the current 
time as HI. -Ml (hour:minutes) and 
picks a value for M, the number of 
minutes to elapse. Lines 7100-7120 
compute the future time based on 



these, as H2:M2. If you have trouble 
following the logic of these three 
lines, just pick some numbers for 
MOD, HI, Ml, and M, and carry out 
the specified tests and instructions on 
paper to see how they work. 

Lines 7130 and 7140 print the 
problem on the screen; and the re- 
maining coding, from line 7150 on, is 
a straightforward input and scoring 
routine. The POKE at the end of 
7140 merely assures that some stray 
character left over in the keyboard 
buffer won't be counted as part of 
the player's input. 

Well, that's "Math Decathlon" 
for this month. Not a single transla- 
tion note in the whole muddy puddle! 
Next month's installment will con- 
clude the series, with the last three ex- 
citing events and (at last) the routine 
for playing the grand winner's full 
national song. Or maybe you will 



have already written that routine 
yourself by then. 

VARIABLES (Part 3): 

A, B, C: Denominators used in event 

#5; numbers used to generate magic 

squares in event #6. 

D: Product of denominators. 

H: Elapsed hours (computed from 

elapsed minutes). 

HI: Current time (hour). 

H2: Future time (hour). 

II: Print-position indicator. 

LCD: Lowest common denominator. 

M: Elapsed minutes. 

Ml: Current time (minutes). 

M2: Future time (minutes). 

MOD: Number of minutes per hour. 

SQ(i): Value of number at position i 

of magic square. 

X, Y, Z: Positions of missing 

numbers in magic square. 

X$, Y$, Z$: Answer input variables. 



DECATHLON-f ART TIWEE 


5020 PRINT "IN THIS BM\ I HILL 


5120 NEXT IJ GOTO 5170 




SHOH YOU A SET (F FRACHON 


5130 = A X B! HOC : VTAB lO: PRINT 


New lines to replace or add to 


S, AM) YOU («E TO FIND Tl€ L 


TAB( 16)"1 1"! PRINT TAB( 


previous ones. 


OH- EST COMMON DENOMINATOR. 


15)"-- — ": PRINT TAB( 




TICREHTIIBE TrtlE SETS I 


16) a;: PRINT TAB( 23)BJLCD = 




N ALL." 


D 


IflO POKE - 16360,0: VT« 2V, K\PB 


5030 GOSUe 90 


5H0 FOR I = D / 2 TO 2 STEP - 


i: INVtKSt J PRINT ">» PRES 


5010 F NXT THEN 6000 


i: IF INT (I / A) = I / A AM) 


S THE SPACE BAR TO CONTINUE 




INT (I / B) = I / B T1€N LC 


<«"•,; NORMAL 




D = I 


310 E»(l) = "MISSING ♦"tE$(2) = " 


Choose randon denoninators. 


5160 NE)a I 


GUESS A ♦":Et(3) = "SPEED MA 






TH":E$(1) = "STARS"{E«<5) = 






"L.C.D.";E$(6) = "MAGIC SQR" 


5050 FOR PRUb = 1 TO 3 


Input ariswer and score it. 


:Ei(7) = "CLOCK MATH" 


5060 A = INT ( RND (1) I (1 + S( 




320 EEi(l) = " 1. FIW THE MISSIN 


P) 1 3)) + 3 




G NUMBER" :EEt(2) = " 2. CUES 


5070 B = INT ( RND (1) I (1 + S( 


5170 VTAB 16: imiT " LOWEST C 


S A NUMHJ<":EE»(3) = " 3. SP 


P) X 3)) + 3J F A = B TICN 


OMMON DENONINATOR = ? "ifmi 


EED MATH"!EE$(1) = " 1. STAR 


5070 


PRINT :a2 = lco:px = 10 : g(bub 


RY STARRY NIGHT":EE$(5) = " 


5080 F S(P) = THEN 5130 


30 


5. LOWEST COMMON DEWJMINATOR 


5090 C = INT ( RND (1) « 1) + 2: 


5180 nasiiB iflo: next prae,p; gosub 


11 


FC = AORC = BTHEN 5090 


11000 


330 EE$(6) = " 6. MAGIC SOJARES"'. 






E$(7) = " 7. CLOCK MATH" 


Display fractions and cowpute 
lowest comoTi denoninator. 


Event *6: 


- 


5100 D = A X B X C! HOME : VT« 1 


Magic Squares 


Event *5: 


O: PRINT TAB( 13)"1 1 


Print instructions. 


Lowest Comon Denominator 


1": PRINT TAB( 12)"— 
— — ": PRINT TAe( 






13)a;; print TAe( 20 )b;: print 


60O0 E = 6:nxt = 




TAe( 27)C:LCD = D 


6010 FOR P = 1 TO NP; GUSUB 10 
6020 PRINT "IN THIS EVENT I HTl 1 


Print instructioTis. 




PRINT OUT A MAGIC SQUARE H 




5110 FC« I = D / 2 TO 2 STEP - 


ITH ONE OR MURt NUMBERS MISS 




1! F INT (I / A) = I / A AND 


ING.YOU ARE TO SUPPLY THE MI 


5000 E = 5tHXT = 


INT(I/B)=I/BAND INT 


^ING NUMbLHS." 


5010 FOR P = 1 TO NP: GOSflR 10 


(I/C) = I/CTHENLCO = I 


continued on next page 
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continued from previous page 








Input answep(s) and score then. 


Choose Minutes per hour, current 


A03fl PRINT J PRINT "A fWGIC SQUA 




tine, and elapsed tine; calculate 


RE IS A SQUM£ ARRMIGOENT 




future tine. 


OF NlMeS IN WHICH E\eY CO 


6210 xi = "0":y» = "0":z$ = "0"j print 




LUHN^ EVERY RON, AND EACH LO 


: VTAB 18! INPUT "VALUE OF X 




NG DIAGONM. M)DS UP TO" 


= ? "}Xi; F Y = THEN 621 




6010 PRINT "THE SAME TOTAL. ONC 





7070 FOR PRUB = 1 TO 3:M0D = 50! 


E YOU DETERMINE THIS'tMGIC N 


6220 D»HJT "VALUE OF Y = ? ";Y$J 


F S(P) = 1 THEN MOO = 10 X 


UHBER' YOU CAN FIGURE OUT TH 


F Z = T»€N 6210 


M ( RND (1) X 5 + 1) 


E MISSING QUtt<lllIES." 


6230 INFIIT "V/lUE OF Z = ? ";Z$ 


7080 F S(P) = 2 THEN MOO = 5 X 


6050 GOSIIR 90: IF NXT THEN 7000 


6210 IF SQ(X) = V/1 (X$) AND SQ 


INT ( RM) (1) X 20 + 1) 




(Y) = Wl (Y$) AND SQ(Z) = 


7090 HI = INT ( (»« (1) X (8 + S 




VAL (Z$) THEN PX = 10{ GOSUB 


(P) X 2) + 1)!M1 = INK RM) 


Generate randon nsgic square* 


50 : GOTO 6280 


(1) X M0D):M = INT ( RND (1 
) X MOD + MOD - Ml) X (S(P) + 


/■ ^ "^^^^"7 


6250 PRINT 5 PRINT "SORRY, "{PL* 


1) 


T7^^/ m 


(P);":"J PRINT " X= "}SQ(X 


7100 H = INT ((Ml + M) / MOO):H2 


YAa r 


);•. F Y = TICN 6280 


= HI + H!M2 = Ml + M - MOD x 


^\iiy\/ 


6260 PRINT " Y = "!SQ(Y);S F 


H 


O^^ ^ 


1= THEN 6280 


7110 FM2> =M00T1€NM2 = M2 


6270 PRDTT " Z = ";SQ(Z); 


- M0DtH2 = H2 + 1! GOTO 711 


6280 GOSUB 100! >EXT PROBtP! GOSUB 





6060 FOR PWB = 1 TO 3:A = INT 


llODO 


7120 IFH2>12Tie(H2 = H2-l 
2 


/ ^~ ^~ / 




( RND (1) 1 7 X (S(P) + D) + 


//J^^ / 




1:B = INT ( RND (1) X 1 x ( 


/^-=^^^F / 


Print out problen, ir«>ut answer, 


S(P) + D) + 1 


/^L^^m ^ 


and score it. 


6070 C = INT ( Riffi (1) I 3 X (SI 


/ ^/^ r 




LL(P) /> 2 + D) + 1! IF C = 


/'Ar^%\// 




B THEN 6070 


Cr''*^:::^ 


7130 HOit ! VTAB 5! PRINT " F 


6080 SQ(1) = A - B<SQ(2) = A + B - 


j'^''^ 




C:SQ(3) = A + CJSQ(I) = A + 


r^5^^ 


THERE ARE "JMOO!" MINUTES IN 


B + C:SQ(5) = AJSQ(6) = A - 
B - C:SQ(7) = A - C:SQ(8) = 


Event #7! 


AN HOUR,"! PRINT ! PRINT ! PRINT 
TAe( 11)"A«) T* TIME NOW I 


A - B + CSSQ(9) = A -f 6 


Clock Hath 


S"! PRINT I PRINT TA6( 1B)H 


6090 X = otY = o:z = 




i;","!! F Ml< 10 THEN PRINT 
"0"; 
7110 PRINT Ml! PRINT ! PRINT \ PRINT 


6100 X = INT ( R^» (1) X 9) + i: 
F S(P) = THEN 6110 


Print instructions. 


6110 Y = INT ( RND (1) X 9) + It 




" WHAT TIME HILL IT BE IN " 


IF Y = X THEN 6110 


7000 E = 7:nxt = 


!M;" MINUTES?"! PRINT ! PRINT 


6120 IF S(P) = 1 Tt€N 6Hfl 


7010 FORP = 1 TONP! RnSII! 10 


! PRINT "(TYPE HOUR, COMMA, 
MINUTES, 'RETURN'.)"! POKE - 
16368,0 
7150 VTAB 20! HTAB 18! INPUT H$, 
M$!HH = VAL (H»)!m = VAL 


6130 Z = INT ( RM) (1) X 9) + i: 


7020 PRINT "IN THIS EVENT YOU ARr 


FZ = YORZ = XTf€N 6130 


E TO IMAGINE THAT THERE AR 
E NO LONUtk SHTY MINUTES IN 




AN HOUR! (THERE ARE STILL 


(M$) 
7160 F HH = H2 AND MM = MZ THEN 


Display nagic square. 


21 HOURS IN THE DAY, DIVIDED 




INTO 12-HOUR FERTODS.)" 


PX = 10! GOSUB 50! GOTO 7190 




7030 PRINT : PRINT. "IN EACH OF Y 




6110 HO»t tll = 


OUR PWJUEMS, I HILL Fl 1 


7170 PRINT ! PRINT "SORRY, "JPL* 


6150 FOR I = 1 TO 9t VTAB 2 + 5 x 
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INT ((I - 1) / 3)JII = n + 
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i: IF n = 1 THEN n = 1 


HE PRESENT HME IS. THEN 


10 T»€N PRINT "0"! 


6160 HTAB 6 + 7 x n - (SQ(I) < 


, I'LL ASK YOU V»WT TIME n 


7180 PRINT M2 


0) - (SQ(I) < - 9) - (SQ(I) 


HILL BE A CERTAIN NUfKR 


7190 GOSUB 100! NEXT PROB,P! GOSUB 


>9):fi< >XANDI< > 


OF MBWTES FROM NOW." 


11000 


Y AM) l< > Z Tf€N PRINT S 






Q(I);: GOTO 6200 


7010 PRINT "TYPE IN YOUR ANSWER 




6170 HTAB 6 + 7 X n: IF I = X THEN 


WITH THE HOUR AND MINUTES 


Event *8 will begin at line BOOO; 


PRINT "X" 


SEPARATED BY A COMHA-SIICH A 


for riow, end here. 


6180 IF I = Y THEN PRINT "Y" 


S 2,15 OR 12,08." 




6190 IF I = Z THEN PRINT "Z" 


7050 r^lSllR 90 


8000 EM) ^ 


6200 NEXT I 


7060 F NH THEN 8000 
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The Atari* Connection 




ADDITIONAL 
RS232 PORTS 



6 South Si .Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 



ATARI 826 PRINTER $769.00 



Hardware 



Softwares 



on 
isk 



ATARI 400 Computer System, 8K RAM . . . $439.00 (#36-400) 
ATARI 400 Computer System, 16K RAM . . $499.00 (#36-40i) 
ATARI 800 Computer System, 16K RAM . . $829.00 (#36-800) 
ATARI 800 Computer System, 32K RAM . . $949.00 (#36 8oi) 
ATARI 800 Computer System, 48K RAM . $1019.00(#36-802) 

ATARI 410 Program Recorder $69.00 (#36-bo3) 

ATARI 810 Disk Drive $499.00 (#36-8io) 

ATARI 820 Printer (40-col) $369.00 (#36 820) 

ATARI 825 Printer (80-col) $769.00 (#36826! 

ATARI 830 Acoustic Modem $1 79.00 (#36830) 

ATARI 850 Interface $179.00 (#36-850) 

16K RAM Module for the ATARI $1 19.50 (#36854) 

32K RAM Module for the ATARI $189.00 (#36-865) 

MACROTRONICS Printer Interface (36-pln) $69.95 (#36-936) 
MACROTRONICS Printer Interface (40-pin) $69.95 (#36940) 

ATARI Joystick Controllers $19.95 (#36-3005) 

ATARI Paddle Controllers $19.95 (#36-3004) 

ATARI CX-70 Light Pen $74.95 (#36-70) 

Dust Cover for ATARI 400 $7.95 (#i6-40) 

Dust Cover for ATARI 800 $7.95 (#16-03) 



ROM programs 

Basketball $34.95 (#36-bask) 

Chess $34.95 (#36-CHS) 

Editor/Assembler $49.95 (#36-ase) 

Music Composer $49.95 {#36-muse) 

Star Raiders $49.95 (#36-strds) 

Super Breakout $34.95 (#36-supb) 

Tele-Link $24.95 (#36-tel) 

3D TIc-Tac-Toe $34.95 (#36-3TTT) 

Video Easel $34.95 (#36-video 



VISICALC from Personal Software $199.95 (#36-vicl) 

MAILING LIST $24.95 (#36-2790020) 

Software Cassette 

star Trek 3.5 $14.95 (#36-200025T) 

Deflection/Simon Says $9.95 (#36-20oo78T) 

Mountain Shoot $9.95 (#36-20oo79T) 

Angle WormiCxplon Diversion $9.95 (#3e-2ooo92T) 

Fleet $6.95 (#36-27701 bc) 

Connect Four $6.95 (#35-2770200) 

Letters $6.95 (#36-2770220) 

Reverse $6.95 (#36-2770230 

Zap $6.95 (#36-2770240) 

Lander $6.95 (#35-2770190) 

Chase $6.95 (#36 -277017c) 

Computer Acquire $20.00 (#36-2370020 

Conflict 2500 $15.00 (#36-23700iC) 

Lords Of Karma $20.00 (#36-23700ic) 

Biorhythms $14.95 (#36-bior) 

Blackjack $14.95 (#36-black) 

Hangman $14.95 (#36-hang) 

Kingdom $14.95 (#36-king) 

3-Dimensional Graphics Package $29.95 (#36-3d-g) 



TERMS: Prices and specifications are suject to change. HARDSiDE ac- 
cepts ViSA & MASTERCARD. Certified checl<s and Money Orders. Personal 
checl(s accepted (talses 3 we6l(s to clear). HARDSIDE pays all stilpplng 
charges (within the 48 states) on all PREPAID orders over $100.00. On all 
orders under $100 a $2.50 handling charge must be added. COD orders ac- 
cepted (orders over $250 require 25% deposit), there Is a $5.00 handling 
charge. UPS Blue Label and Air Freight available at extra cost. 



* 
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LUNAR MISSION 




by Matt Rutter 

"Lunar Mission" is an Atari pro- 
gram requiring a joystick and 8K of 
memory. 

You are attempting to land your 
fragile rocket on the rough, unpredic- 
table surface of the moon. You must 
quickly locate a safe landing spot, 
and skillfully guide your craft onto 
the sight. One mistake, and you crash 
into a towering mountain summit, or 
plummet to your death on the lunar 
surface. But you cannot afford to be 
overly cautious, for your craft has 
only a limited fuel supply, and once 
this is gone you have lost all control 
of your ship which will succumb to 
the force of gravity. After you've 
mastered a simple landing, you can 
try to top your old scores with new 
records. 

In this simulation the computer 
draws a random scene of the lunar 
surface with two main landing pads, 
represented by dark lines beneath the 
surface. Your job is to land as many 
times as possible, thus earning 
points, before running out of fuel or 
crashing. The two main landing pads, 
however, are not the only places you 
can land. Landing on any flat surface 
at least three blocks long will earn 
you more points. 

Push forward and back on the 
joystick to operate the main 



thrusters, and side to side to operate 
the side thrusters. To land, your ship 
must be right on top of a landing spot 
with your vertical speed less than 1.5. 
In order to prevent the computer 
from stopping if you go off the 
screen, your ship will bounce off the 
sides and top of the screen. 

VARIABLES 
F: Units of fuel remaining. 
LI, L2: Location of landing pads. 




P: Joystick value from STICK(O) 

command. 

S: Points for last landing. 

SC: Score. 

VI, V2, V3: Temporary variables 

used in explosion sound routine. 

X, Y: Position of ship. 

XS, YS: Horizontal and vertical 

speed of ship. 

Yl: Temporary variable used in plot- 



ting random surface. 
Z, Zl, Z2: Used to hold the color of 
the three pixels where the lander is 
going to be. If any of these variables 
are not zero, than there is already 
something else where the lander will 
be (a wall or a mountainside). 
DOCUMENTATION 
Lines 20-70: Draw a random picture 
of the lunar surface. 
Line 60: Draws the landing pads. 
Line 80: Draws the lander at its initial 
position. 

Lines 90-95: Initializes scoreboard. 
Lines 100-180: Main program loop. 
Line 100: Erases old ship. 
Line 120: If joystick is moved, then 
branch to a subroutine to alter speed. 
Line 130: Draws the ship, and checks 
for a crash. 

Line 140: Checks for a successful lan- 
ding. 

Lines 150-160: Update scoreboard. 
Lines 170-175: If the ship hits a wall 
then reverse the speed. 
Lines 200-230: Subroutine to change 
the speed when joystick is moved. 
Line 240: Out of fuel message. 
Lines 300-340: Explosion routine. 
Lines 350-380: Restart routine. 
Lines 400-440: Successful landing 
routine. Adds points to the score and 
restarts the game. More points are 
earned by landing off the landing 
pad. 



1 REM LUNAR MISSION 

2 REM by Matt Rutter 

3 REM written Jan, 1981 
10 F=200:SC=0 

20 GRAPHICS 6:Y=INT(10iRM)(1)+20):L1=I 
MT(37iRND(1))i2:L2=INT(37xRND(1))i2+80 

:coLOR i;d=i 

30 FOR X=0 TO 159 STEP 2!Yl=IMT(15iRND 
(l)+Y-5iO)!PL0T X,80JDRAWTO X,Y:PL0T X 
+1,80:DRAHTO X+1,(Y+Y1)/2 
10 Y=Yi:ff Y>6fl THEN Y=Y-10:D=2 
15 F Y<20 THEN Y=Y+10JD=1 
50 IF XOLl AM) XOL2 THEN NEXT XtGOTO 
70 

60 for i=x+2 to x+7:pl0t i,80jdrawto i 
,yi:next i:color o:plot i-5,yi+i:draht 

I-2,Y1+1;C0L0R l!X=X+6:fCXT X 

70 PLOT 159,80:DRA«TO 159,0:DRAHTO 0,0 

:drauto 0,80 

80 x=i:y=3:plot i,3JPL0t 3,i:plot 5,i: 

xs=3:ys=o 

90 POKE 752,1:P0KE 656,0:? CHR«(27);CH 

R$<29);"SPEEDJ":P0KE 656,2:? CHR*(27); 

CHR$(31)}"yPtLD:" 

95 POKE 656,05POKE 657,20:? "FUELr'JPO 

KE 656,2:P0KE 657,20:? "SCORE?" 

100 color o;plot x,y}plot x-i,y+i:plot 


x+i,y+i}x=x+xs:y=y+ys:ys=ys+o.i 
no locate x,y,z:locate x-i,y+i,zi:loc 

ATE X+1,Y+1,Z2 

120 P=STICK(0):iF P015 AND F>0 THEN G 

OSLB 200!GOTO 130 

125 SOUND 0,0,0,0 

130 COLOR ijPLOT x,y:plot x-i,y+i:plot 

X+1,Y+1!IF Z OR Zl or Z2 THEN 300 
HO LOCATE X-1,Y+2,Z:L0CATE X+1,Y+2,Z1 
:IF Z A«) Zl AND YS<1.5 THEN 100 
150 POKE 656,0!POKE 657,95? YSJ" "j: 
POKE 657,25:? FJ" " 

160 POKE 656,2:P0KE 657,9:? XS|" '",', 
POKE 657,26:? SC; 

170 IF X+XS<5 OR X+XS>156 THEN XS=-XS 
175 F Y<3 THEN YS=ABS(YS) 
180 GOTO 100 

200 F P>8 fm P<12 THEN XS=XS-0.2:F=F 
-KSniM) 0,10,8,15 

210 F P>1 AND P<8 THEN XS=XS+0.2:F=F- 
i:SOUND 0,10,8,15 

220 f p=6 or p=10 or p=11 then ys=ys- 
o.2:f=f-i:sound 0,20,8,15 

230 IF P=9 OR P=13 OR P=5 THEN YS=yG+fl 
.2:F=F-i:snilND 0,20,8:lij 
210 IF F<1 THEN F=0:POKE 656,i:P0KE 65 
7,15:? "lOUT OF FUai":SOUND 0,50,10,1 


5 

250 RETURN 

300 SOUND 0,0,0,0:PtlKE 656,i:PQKE 657, 

15:? "iiYOU'RE DEADn" 

310 SOUND 2,75,B,15:V1=15:V2=15:V3=15 

320 SOUND 0,20,8,Vi:SOUND 1,10,8,V2:SO 

UND 2,7fl,8,V35F0R 1=1 TO 10:NEXT I 

330 Vl=Vli0.89:V2=V2iO.9i:V3=V3»0.97:i 

F V3>1 THEN 320 

310 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 

2,0,0,0 

350 POKE 656,3:? "Press the fire butto 

n to play again"; 

360 F STra:G(fl)=l TICN 360 

370 F STRIG(0)=fl THEN 370 

380 RUN 

100 FOR 1=10 TO 100 STEP W.^HD 0,1, 

io,i5:for h=i TO 25:next h:next i:soun 

D 0,0,0,0 

110 POKE 656,1 :P0KE 657,2:? "The EAGLE 
has landed. ";:S=100 
120 F (X>Ll+2 AM) X<Ll+8) OR (X>L2+2 
AND X<L2+8) THEN S=50 

130 ? s;" points" :sc=sc+s:poke 656,2:P 

OKE 657,26:? SC 

HO FOR 1=1 TO 20flo:NEn i:goto 20^ 
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DOMOD 




by Rich Bouchard 

"Domod" is a sbort utility pro- 
gram for S-80 Modd III disk users. 



The DO function in Model III 
TRSDOS is an extremely useful 
feature, especially when doing long 
repetitive tasks. In the short time that 
I have been using the Model III, the 
DO feature has become my favorite. 
It does have a problem, though. 
After using BUILD to create a DO 
file, there is no way to edit that file. 
So if you want to make a change, you 
are forced to type the entire file over 
again. This program is a short 
routine that will allow you to quickly 
and easily modify your DO files. 

First, the program will ask you for 
the filespec of the DO file. Next, each 
line of the file will be displayed, with 
four options: Change, Delete, Insert 
and Save. [C]hange allows you to 



retype the current line. [D]elete will 
delete the current line. [I]nsert allows 
a line to be added before the current 
one. Only one line may be inserted at 
a time. If you wish to insert more 
than one line, type the first one, then 
[S]ave it, and then [Ilnsert the second 
line, and so on. [S]ave tells the com- 
puter that the current line is accep- 
table as it is, and allows the computer 
to go read the next line. 

When the program has reached the 
end on the DO file, the updated ver- 
sion will then be saved under the 
same filespec, and will be ready for 
use through the DO command. 

Some DO files may contain blank 
lines. This may look a little strange to 
have a blank line printed on the 
screen and to be given a chance to 
modify the line, but blank lines are 
sometimes useful. 

The preliminary Model III disk 
manual states that a DO file may only 
contain commands that are normally 



typed in response to TRSDOS 
READY. I have found this not to be 
the case, I have been able to create 
DO files that enter BASIC, set the 
NUMBER OF FILES and 
MEMORY SIZE, and then proceed 
to load, or even create, a BASIC 
program. 

VARIABLES 
A$( ): A string array containing each 
line in the DO file. 
B$: Option selected, recieved via 
INKEYS. 

F$: Filespec of DO file. 
I: Flag. 1 if a line has recently been 
inserted. Used to prevent multiple in- 
serts (line 230), and decide when an 
old line should be restored (see S$ 
below). 

N: Number of lines currently in 
memory from the DO file. 
S$: Storage for a line when a new line 
is to be added in front of it. Line 140 
restores it after the inserted line has 
been either saved or deleted. 



10 ' uxiiixx BOHOD/BAS VI. rnvnii 
20 ' mil Rich Bouchard t 83/10/81 x«x 
30 ' xiumixxxxicxixixixxixntxixxDaxx 

16 ' 

100 CLEAR 2060 

116 DIM («(2»8) 

120 aSJLDCDIVrTilespec >";F« 

130 OPEN "IM,F» 

110 F 1=1 THEN »=N+lt M(N) = S«: 1=6! GOTO 180 

158 F EOF (1) THEN 316 

168 N=N+1 

178 LINEINFUT*l,At(N) 

188 PRINT ")";A»(N) 

196 PRINT "<C>h3n9e, <a)>«lete, <I>nsert, <S>ave >";Cff:*(11); 

266 B$=D#IY$ 

216 B*=INKEYt 

226 F B$="" THEN 218 

236 F <B$0"r m B»C"i") OR (1=1) THEN 276 

216 PRINT "Insert": S»=A»(N): 1=1 

25« LDGNPUT ">";i»(N) 

266 print: goto 188 

271 F (B«="0") OR (B*="d") THEN PRINT "Delete": N=N-1! GOTO 336 

286 F (BtO"C") AND (B$<>"c") THEN 320 

296 PRINT "Change" 

3«« UNErNPUT">";At(N) 

316 print: COTO 180 

326 F (B-tCS") AND (e«<>"s") THEN 218 ELSE PRINT "Save" 

336 print: COTO 116 

3^0 PRINT "««« Reading done. Printing new file, xxix" 

356 aOSE 

366 OPEN "0",1,F$ 

376 FOR T = 1 TO N 

386 PRINT ♦I, A$(T) 

39« ICXT T 

166 F A«<N) O CHR«(255) THEN PRINT *1,CHR*<255); 

116 CLOSE 
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VINYL 
BINDERS 



Collectors! Protect your Softs id e back 

Issues, Volumes I and II, or any publicalion o1 

your choice, with ttiese durable wood-grain 

vinyl binders with Inside pocket an^ clear 

spine sleeve for easy identitica\ion, Hoitis 

and protects 12 back issues. A regular $4.95 

value, SALE priced at $3.95*. FREE (white 

supply lasts) with the purctiase of Volume I or 

II (12 issue collection of SoftSids). 

SMALL #75-401001 $3.95 

8Wx11 #75-401002 $7.95 
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75€J-IPROSIIX 

6 South SI ,Mil(ord, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-»00-2S«-17tO 
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SOFTSIDE DIRECTORY 

SoftSide is now over IVj years old! During tiiese years we liave produced four dif- 
ferent magazines, with the final result being all of them combined into the magazine 
you now hold in your hands. This directory contains the titles, authors, and the page 
number where each article or program appeared, up to and including last month's 
issue. Henceforth we will print an annual directory in the May issue. Look through 
our back pages and see what you may have missed out on, and what you might be in- 
terested in. 



SOFTSIDE: S-80 EDITION 




"Cribbage" 

Roger W. Robitaille 

page 8 

"State Capital Quiz'' 
Roger W. Robitaille 
page 28 

'Death Star" 
Roger W. Robitaille 
page 39 



"Calculator" 
Roger W. Robitaille 
page 39 

"Pillbox" 
Gene Perkins 
page 41 



October 1978 




"Bad Code" (a puzzle) 
Lance Micklus 
page 14 

"Troll's Gold" 
George Blank 
page 17 

"Shopping List" 
Roger W. Robitaille 
page 27 



"End Zone" 
Roger W. Robitaille 
page 32 

"What They Never Told You 
About Level II" 
George Blank 
page 47 

"Octal to Hex" 
Lance Micklus 
page 61 



November 1978 
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"Santa Paravia En Fiumaccio' 
George Blank 
page 8 

"Biorhythms" 
Frank B. Rowlett 

page 25 

"Mortgage Calculations" 
Russell Starkey 
page 29 



"Spelling Bee" 
Lance Micklus 
page 33 

"Six MiUion Dollar (lOK) Clock" 
Peter Ashley 
page 37 

"Chess Clock" 
Roger W. Robitaille 
page 39 



December 1978 
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January 1979 



"Round the Horn" 
George Blank 
page 8 

"Writing Good Computer Games 
Part 1: Philosophy" 
George Blank 
page 29 

"Kiddy Slot Game" 
David Bohlke 
page 35 



"Ten Pin Bowling" 
Frank B. Rowlett 
page 40 

"High Speed Graphics for the 
TRS-80"Computer" 
Frank B. Rowlett 
page 53 

"Comput-A-Sketch" 
Albert C. Blackwell 
page 58 



Form 1040 
TAMED 



"Form 1040" 
George CUsham 
page 10 

"Writing Good Computer Games 
Part 2: Mechanics" 
George Blank 
page 27 

"Concentration" 
Lance Micklus 
page 37 



"Elements Quiz" 
Roger W. Robitaille 
page 47 

"Read Error for Disk 
Programmers" 
Staff 
page 53 

"Cribbage Update" (corrections) 
Roger W. Robitaille 
page 55 



February 1979 
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"Tarot" 

Frank B. Rowlett 

page 8 

"Metric/English Converter" 
Dr. Stephen W. Hebbler 
page 17 

"Can You See Through This? 
(Fog index)" 
George Blank 
page 26 



"Dive Bomb" 
George Blank 
page 30 

"Personal Finance" 
(checkbook and checkfinder) 
Lance Micklus 
page 32 

"Jig Saw" 
David Bohlke 
page 46 



March 1979 



continued on next page 



SoftSide May 1981 



63 



continued from previous page 




"Checkfinder" 
Lance Micklus 
page 8 

"Don't It Make My Brown Eyes 
Blue?" 
James Garon 
page 17 

"Rabbits and Foxes" 
Russell Starkey 
page 24 



"Spring Flowers" 
David Eide 
page 31 

"Safari" 
David Bohlke 
page 36 

"Series Circuits" 
Phillip Brown 
page 54 



April 1979 




May 1979 



"Dog Star Adventure" 
Lance Micklus 
page 8 

"Awari" 
Scott Adams 
page 24 

"Take A Part Awari" 
Scott Adams 
page 29 



"Letter Crunch" 
David Bohlke 
page 30 

"Math Drill" 
D.L. Brown 
page 36 

"Super Sub" 
Michael Winter 
page 48 




ATLANTIC 

BALLOON 

CROSSING 




"Amazin' Maze" 
Michael Kelleher 
page 6 


"Nim" 
James Garon 
page 36 


"Atlantic Balloon Crossing" 
Dean Powell 
page 8 


"Home Appliance Record System" 
Ray Herald 
page 43 


"German Word Quiz" 
Computer Graphics 
page 27 


"Entrapment" 
Robert C. Hall 
page 53 



June 1979 
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July 1979 



"All Star Baseball" 
David Bohlke 
page 10 

"Yahtzee" 
Al Lowe 
page 25 

"Tank" 
James Garon 
page 40 



"Spelling Bee" 
James Garon 
page 52 

"Collision" 
David Bohlke 
page 64 




August 1979 



"Meltdown" 
Michael Winter 
page 8 

"Shooting Gallery" 
Frank B. Rowlett 
page 26 

"Storybook" 
Otto Hansen 
page 36 



"Morse Code Tutor" 
Donald E. Smith 
page 52 

"Cryptogram" 
Rik Pierce 
page 57 



Scptpmlwi tt~t 
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September 1979 



"Treasure Dungeon" (Tutorial) 
David E. White 
page 8 

"Hangman" 
Russell Starkey 
page 26 

"Pyramids" 
Lewis E. Garrison 
page 36 



"Immediate Mode" 
(Programming Hint) 
Dean C. Westervelt 
page 54 

"Engineer" 
David Bohlke 
page 58 
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"What Kind of Work Do You 

Enjoy?" 

G.P. Cocanour 

page 10 

"Reaction Time" 
Chris Freund 
page 20 



"Battleship" 
John M. Delaney 
page 28 

"Westward 1847" 
Jon C. Sherman 
page 36 



October 1979 



L55ft5iaeJ 



CONQUER 
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November 1979 
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"Energy Cost Comparison 
Program" 
George Blank 
page 12 

"Isolate" 
James Garon 
page 18 

"Picture Puzzles" 
Arnold Gross 
page 30 



"Everest" 
Byron A. Myhre 
page 36 

"Doodle Pad" 
R.B. Nottingham 
page 60 




"Oil Baron" 
Paul Knechtel 
page 8 

"Drag Race" 
Chris Freund 
page 26 

"Christmas Show and Tell" 
Randy Hawkins 
page 33 

"Index to BASIC Reference 
Manual" 
Kemp J. Beaty 
page 39 



"Towers of Hanoi" 
Chet Kacneski 
page 44 

"Slalom" 
Denslo Hamlin 
page 50 

"Review of Bridge Challenger" 
Wynne Keller 
page 63 



December 1979 
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January 1980 



"Dante's Inferno" 
Gerald Bernor 
page 36 

"Basic Pitfalls" (article) 
William Mason 
page 52 

"Duck Hunter" 
Don Lubarsky 
page 58 



"Moving Maze" 
Paul Klinger 
page 10 

"Bomber" 
Chris Freund 
page 18 

"Reflection" 

(deductive reasoning game) 
Ted Lindstrom 
page 23 




"Scott Adams' Backgammon' 
Scott Adams 
page 10 

"Parachute" 
Norman McAllister 
page 27 

"Deadstick" 
Al Ragsdale 
page 35 



"Play it Again Sam' 
Alan Zett 
page 54 

"Deep Six" 
Chris Freund 
page 70 



February 1980 




March 1980 



"Add" (Children's Program) 
Terry Hazelett 
page 12 

"Line Four" (Tic Tac Toe Strategy) 
Robert Speaks 
page 18 

"System Emulator" 
Roy Niederhoffer 
page 28 



"Broadway" 
Robert Saturn 
page 40 

"A Game Designer's View" 
(What makes a game appealing) 
Ian Chadwick 
page 58 

"Sonic Torpedoes" 
PhilHp Case 
page 69 
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April 1980 



"Solitaire" 
James Garon 
page 12 

"Hope it Doesn't Work" 
(Article) 
Ron Potkin 
page 18 

"ICBM" 
(Game) 

Rod Fitzgerald 
page 24 

"Programming Made Easy in 580 

Bytes" 

(Review of T-short) 

Sherry M. Taylor 

page 34 



"Review of Word Challenge" 
Scott Adams 
page 35 

"Slot Machine" 
(Game) 

James A. Hagani 
page 40 

"Stud Poker" 
(Game) 
Dave Bohlke 
page 48 

"Draw Poker" 

(Game) 

Lee Blumenthal and Joel Willard 

page 55 




S]>ecial Issne- 



May 1980 



"Livekeys" 

(World's smallest word processor) 

Douglas Werbeck 

page 12 

"The $44000 Star Trek program" 
Lance Micklus 
page 18 

"Review of Tycoon" 
Brad Cameron 
page 37 



"Star Trek in.4" 
(Game) 

Lance Micklus 
page 40 

"Day of the Week Program" 
George Blank 
page 69 

"Encounter in the Near Tholian 

Sector" 

Barry L. Adams 

page 72 




"Printing Calculator" 
D.L. Morrow 
page 12 

"Numbagels" 
(Random number game) 
Peter Kirsch 
page 20 

"Fix Keyboard Bounce" 
Al and Gary Lowe 
page 30 

"Simple Sound Interface" 
Edward Ting 
page 36 



"Micro MiUionaire" 
(Program/article) 
George Blank 
page 40 

"Galaxy Combat" 
(Game) 
Phil Case 
page 56 

"Adventures" 
(Article on compunovels) 
James Garon 
page 17 



June 1980 
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July 1980 



"Micro-80 Pinball Machine" 
(Game) 
Garth Jensen 
page 22 

"Adventureland" 

(Data tape for Adventureland in 

BASIC) 

Scott Adams 

page 36 



"Adventure Interpreter" 
Scott Adams 
page 44 

"Lost Dutchman's Gold" 
(Game) 
Teri Li 
page 58 




March 1979 



PROG 80 

"Strings Fever" 
(Level II string variables) 
Robert A. Wallace 
page 6 

"Upper Case/Lower Case 

Modification" 

(S-80 routine) 

Lance Micklus 

page 9 

"Variables in Level II S-80 

Programs" 

(article) 

John A. Millspaugh Jr. 

page 12 

"Getting the Most Out of the Data 

Statements" 

(article) 

George Blank 

page 17 



"Simple Simon" 
(Experiment with Machine 
Language and Disassemble your 
BASIC ROM) 
George Blank 
page 24 

"Inkey Routines" (Level II Basic) 
Lance Micklus 
page 37 

"Disk Drive Clunk?" 
(Programming routine) 
Lance Micklus 
page 39 

"Clock Routines" 

(Disk BASIC routines to manipulate 

the clock) 

Lance Micklus 

page 41 

"Super Graphics" 
(Graphics on the S-80) 
George Blank 
page 42 




"Clock Routines" 
(Disk BASIC program to 
manipulate the clock) 
Lance Micklus 
page 6 

"Rescue" 

(Restore crashed Disk BASIC 

program) 

George Blank 

page 10 



May 1979 



' ' Scattergram/Correlation 

Program" 

(S-80 Level II Basic) 

Gary S. Breschini 

page 16 

"A Piece of the ROM" 

(Three routines get data from the 

keyboard) 

Lance Micklus 

page 27 

"Super Graphics Without Disk" 

(Basic program acts as graphics 

editor) 

James Garon 

page 29 

continued on next page 
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"Boomer Box" 
(Level II BASIC sound box) 
Frank B. Rowlett, Jr. and 
Garry W. Woodruff 
page 36 

"Upper/Lower Case Mod" 
(Schematic and BASIC subroutine 
in high memory) 
Lance Micklus 
page 48 



"Squish/Bas" 

(S-80 program that compresses 

BASIC programs) 

Bill DriscoU 

page 62 

"Init" 

(Initialize program for the S-80) 

George Meyer 

page 66 



"Graphics Aid" 

(Translate graphics on screen into 

data that can be output ) 

Phillip Brown 

page 51 




July 1979 



"A Sound Subroutine" 
James Garon 
page 6 

"Machine Language Video Output" 
Paul Johnson 
page 14 

"High Density Data Storage" 
(Bit packing and unpacking) 
George Blank 
page 20 

"Histogram and BASIC statistics 

program" 

(Level II S-80) 

Gary S. Breshini 

page 25 

"Talking Banko" (Game) 
Lance Micklus 
page 38 



"Plot" (Machine Language version 
of set (XY) for the S-80) 
James E. Randall 
page 52 

"Cassette Controller" 
(Constructing a control box) 
John D. Eaton 
page 57 

"Book Review of S-80 Assembly 
Language Programming" 
George Blank 
page 70 

"S-80 Music" 

(Harness your computer and radio ) 

James Garon 

page 72 




September 1979 



"DOS" 

(How to stop lost data errors) 

Lance Micklus 

page 12 

"Computers are Kid Stuff" 
(How to use computers with 
children) 
Michael Potts 
page 16 

"Basic Disk Cross Reference 
Utility" 
L.C. Chesbro 
page 30 

"Renumbering Program for 
TRSDOS" 
Rocky Smolin 
page 34 



"Squish-2" 
Bill Everett 
page 41 

"Old Business" 
(Another modification to 
upper/lower case modification) 
Lance Micklus 
page 46 

"String Crasher for 32K S-80" 
Clayton E. Schneider 
page 50 

"Date and Time Routine for 
TRS DOS 2.2" 
George W. Blank 
page 52 



70 



SoflSide May 1981 



-PUCG/BO 



»7 TftcpKunc DUlf 

Pawjl. BAilt rOfiTtAN. Or AMetnfelcr) 



December 1979 
"Computer Telephone Dialing" 
(Allows S-80 to dial numbers from 
in-memory directory) 
Robert Sours and Steve McKee 
page 10 



"Choosing the Right Language" 
Lance Micklus 
page 26 

"Devices" 

(Use of command for TRSDOS) 

Lance Micklus 

page 34 

"An Alternative to a Disk System" 
(Discussion of Exatron stringy 
floppies) 
Wynne Keller 
page 46 

"Variable Uniqueness and Validity" 
(Check intended variable names 
through name-checker) 
Jeff W. Collins 
page 50 

"Shedding Light on a Dim Area" 
(Routine to increase speed) 
James Garon 
page 54 



"Preference Poll" 
(S-80 program) 
George Blank 
page 58 

"Macrotronics M-80 Review" 
Donald W. Dejarnette 
page 65 

"Hexadecimal to Decimal 
Converter" 
Bill Everett 
page 70 

"Model II — The First Look" 
(Review) 
Lance Micklus 
page 72 

"Review — Blaiseing along in 

Pascal" 

(People's Pascal I and II) 

Robert P. Johnson 

page 74 




February 1980 



"May the Source Be With You or 

Will it be Micronet?" 

(Review) 

Richard Taylor and Mark Kirmayer 

page 10 

"The Time Sharer's Paradise — 

ST80D + Electric pencil -I- VTOS 

3.0" 

Richard Taylor 

page 13 

"Are Your Programs Write 

Protected?" 

(Procedure with just 2 lines) 

Frederick B. Hagar 

page 21 

"What's In a Name" 
(Give a name a meaning) 
James Garon 
page 24 



"Superzap Review" 
Teri Li 
page 28 

"Hexmem" 

(Basic program that duplicates some 

Machine Language monitors) 

John T. Phillip 

page 41 

"High Speed String Handling in 

BASIC" 

(Discussion and subroutines) 

Marty Zwilling 

page 52 

"CTR-41 Modifications" 
Bob Cahill 
page 62 



Oevtt.ei (Z( Redefining Icve! It Keyboard 
Wfmng System Tapes f«inim8Q. 
«nd much iTtoref 




April 1980 



"Redefining Level II Keyboard" 
(Intercept the S-80 input and output 
routines to change value of keys) 
Phelps Gates 
page 10 

"Writing System Tapes" 
(Article and program) 
George Blank 
page 18 

"Voice Synthesizer Laboratory" 

(Program displays phonemes on 

screen) 

John R. Olsen, Jr. 

page 26 

"BASIC File Utility" 
(Disk program) 
Clayton Schneider 
page 36 



"Devices" 
(Article) 
Lance Micklus 
page 46 

"A New User's Guide to the 
Source" 
Richard Taylor 
page 56 

"Forum 80" 

(Review of a computer bulletin 

board service) 

Richard Taylor 

page 65 

"Stacking Your Subroutines on the 

Heartbeat Interrupt" 

(Article/routine) 

George Blank and John Hartford 

page /U continued on next page 
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"Repeatable Randomness" 
(Routine can repeat a sequence of 
random numbers) 
James Garon 
page 72 



"Zero Slash Killer" 
(Assembly Language routine to 
eliminate the zero slash in line 
printer outputs) 
Timothy Smith 
page 74 



"Proofread" 
Frank S. Kasper 
page 76 
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June 1980 



"All Purpose Print Routine" 
C.E. Aidlaw 
page 69 

"Z-80 Disassembler" 
(Utility program) 
George Blank 
page 10 

"Printer Terminal" 

(Use time-sharing terminal to print 

hard copy with your S-80) 

Dr. Owen Gaede 

page 19 

"Random Accessing Techniques" 
(Disk file structures and 
programming aids) 
Will Hagenbuch 
page 56 

"Form Letter" 

(Letters from Electric Pencil to be 

used in conjunction with mailing 

lists) 

Richard Taylor 

page 49 



"BASIC to Electric Pencil 
Conversion " 
James Garon 
page 40 

"New NEWDOS command — 

LOC(X)" 

(Explanation and check routine for 

Model II) 

Carl William Mackey 

page 76 

"Branching Functions in APL80" 
(Article) 
Phelps Gates 
page 44 

"Using Electric Pencil with Radio 
Shack Lower Case Modification" 
Jeff Brown 
page 82 




August 1980 



"A Second Look at Micronet and 
Source is Now MNET-80 Too" 
Richard Taylor 
page 14 

"Program Portability" 

(Makes programs portable between 

Level II and Disk BASIC) 

James Garon 

page 22 

"Splat — An Introduction to Tiny 
Comp" 
David Bohlke 
page 26 

"Scripsit Review" 

Richard Taylor and Mark Kirmayer 

page 33 



"S-80 Program Storage and Some 
useful Corollaries" 
(Article/charts) 
Jeff Meyers 
page 38 

"Varlist" 

(Program to list variables) 
Charles C. Edwards 
page 46 

"S-80 Fortran Subroutines" 
David E. White 
page 54 
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January 1980 



"Troll's Gold" 

George Blank 

(Conversion by Murray Summers) 

page 28 

"Dog Star Adventure" 
Lance Micklus 
page 35 

"Editing Features" 
(Programming Hints) 
staff 
page 53 



"Loan Amortization" 
Richard T. Rodgers 
page 12 

"Reverse" (Skill game)" 
Austin R. Brown 
page 20 

"Giant Clock" 
(Digital computer clock) 
Mike Weinstein 
page 24 



Super Nim ... 
Connection ... 
. . . and more! 




"SuperNim" 

Dr. Jerry Dubnoff 

page 10 

"Elementary Math" 

staff 

page 22 

"State Capitals" 
Jack Brandon 
page 26 

"Connection" 

(Game with Lo-Res graphics) 

Chip Anderson 

page 32 



Feburary 1980 



"Musical Scales" 
(Educational program) 
Roger Wagner 
page 39 

"Sort" 

(Utility to help reorganize words 

or strings) 

Michael Weinstock 

page 46 

"Random Thoughts on Loading" 

Staff 

page 20 

"More Programming Hints on 

Editing" 

Staff 

page 54 
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March 1980 



"The Care and Feeding of Integer 
Hi-Res" 
Gale Porter 
page 9 

"Renumber and Merge the Easy 

Way" 

Frank D. Chipchase 

page 19 

"Format Decimals" 

(A subroutine to format numbers) 

Staff 

page 21 

"Acey Ducey" (Game) 
Mike Weinstock 
page 27 



"Treasure Hunt" (Game) 
Lance Micklus 
page 32 

"Bouncing Ball Catcher" 
(Game) 
Mark Cross 
page 46 

"Switch Puzzle" (Game) 

Staff 

page 50 

"Programming Hint on INT 

Function" 

Staff 

page 15 
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Space War... Jigsaw... 
Shoot Oat... Melodsi... 



April 1980 



"Applesoft Ampersand" 
D. Pachin 
page 16 

"Shoot Out" (Game) 
Alan Hill 
page 19 

"Jig-Saw" 

Bob Sander-Cederlof 

page 28 

"The Invisible Signature" 
(Utility routine) 
Craig Grossman 
page 32 



"Space War" (Game) 
Bob Sander-Cederlof 
page 35 

"Melody" 

(Converts your Apple to a piano) 

Mitch Kapur 

page 40 

"Book excerpt — Inimate 
Instructions in Integer BASIC" 
Brian and George Blackwood 
page 49 

"Display Control Characters" 
(Control characters in flashing 
video) 
page 52 




Invadl^rs from 
Outer Space... 



May 1980 

"Small Marquee" (Game) 
Mark J. Wolf son 
page 10 



"Hyperboloid" 
(3-D Hi-Res graphics) 
John Mauch 
page 16 

"Magic Cave" (Game) 
Chuck Hartley 
page 18 

"Fifteen Game" 
Mark Cross 
page 24 

"Review of Android Nim" 
Brad Cameron 
page 28 

"The Utimate Program Protection" 
(Programming hint) 
Phillip Case 
page 29 



"Black Box" (Game) 
Edward Garner 
page 33 

"Invaders" (Game) 
Mark Pelczarski 
page 38 

"Right/Left" 
(Program for toddlers) 
Carl Swenson 
page 50 

"Book excerpt — Intimate 
Instructions in Integer BASIC" 
Brian and George Blackwood 
page 53 

"Catalog 11" 

(Boot or hello program) 

Lennis Hall 

page 56 




June 1980 

"Apple Graphics" (article) 
Joan Truckenbrod 
page 12 



"ROM the Robot" 
Bill Smith 
page 18 

"Dodger" (Game) 
Richard Johnson 
page 18 

"A Hello Program for Your Disk 

System" 

Mark Pelczarski 

page 33 

"Dogfight" (Game) 
Mark Pelczarski 
page 36 



"Magic Paintbrush" 

(Super Etch-A-Sketch program) 

Mark Pelczarski 

page 44 



"Book excerpt — Intimate 
Instructions in Integer BASIC" 
(Print statements) 
Brian and George Blackwood 
page 49 

"Reviews of Three Mile Island, 

Compu-Read, Windfall, and 

Visicalc" 

Staff 

page 55 

"Double Rainbow" 
(Increase number of colors in Hi- 
Res) 

Don Jacobs 
page 63 

"Programming Hint on How to 
Add Sound to Integer programs" 
Mark Pelczarski 
page 65 
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July 1980 



"ROM the Robot — Part 2" 
(How to move your robot) 
Bill Smith 
page 12 

"No-Mis" (Repeat the tune game) 
Robert Hausman Jr. 
page 22 

"It's a Small World" 
(Subroutine to produce tones 
through speaker) 
Timothy and Ping Patrick 
page 28 

"Lo-Res Printout" 

(Routine to dump the Lo-Res screen 

onto printer) 

Scott Nevin 

page 34 



"Pork Barrel" (Game) 
George Blank 

(Translated by Murray Summers) 
page 40 

"Apple III Review" 
Mark Pelczarski 
page 66 

"Horse Race" (Game) 
Steven Kahn 
page 75 

"Reviews of Global War, Sargon 
II, and Maze game" 
Mark Pelczarski 
page 81 

"Apple Graphics" 
(Simulated motion article) 
Joan Truckenbrod 
page 85 




August 1980 



"Fiddling with VARPTR" 
(S-80 programming concepts) 
James Garon 
page 8 

"Four-Oh-One-Six" 

(The secret to load and go system 

tapes for S-80 Level II users) 

Robert W. Lord and Rajeev 

Jayavant 

page 14 



"How Much Computer Do You 

Need?" 

(Article) 

George Blank 

page 15 



NEW SOFTSIDE 

"Converting Graphics From One 
Computer to Another" 
(S-80, Apple, and Atari) 
Staff 
page 22 



"Mod-Prog" 

(S-80 and Apple routines that allow 

easy program changes) 

Thomas Hanhn III 

page 24 



"Sailplane" 
David J.T. Nunn 
page 26 



"Caribbean Cruising" 

(Apple) 

Mark Pelczarski and Jim Klink 

page 30 



"Pro Tour '80" 
(S-80 golf program) 
Dave Bohlke 
page 34 



"Master's Golf" 
(Atari) 

David Bohlke 
page 38 



"ROM the Robot III" 
Bill Smith 
page 42 



"Maze Search" 
(Atari) 
Dave Bohlke 
page 48 

"Grand Prix" 

(S-80 Formula 1 car race) 

Max Chauvet 

page 50 

"Concentration" 
(Apple) 
Harris Kirk 
page 52 



"Stratoblaster Outpost" 
(Atari) 
Dave Bohlke 
page 54 



"ATARI Keystroke Karnival — 
Poor man's joystick" 
(Program/explanation) 
James Garon 
page 56 



"Save Your Crashed Scripsit" 
George Blank 
page 64 

"You Can Have Sound on Your 

Computer" 

(Apple, Atari, and S-80) 

Mark Cross and Rich Bouchard 

page 66 

continued on next page 
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September 1980 

"Apple Data Base Reviews" 
(What to look for when you buy) 
Mark Pelczarski 
page 3 

"Saving Time and Fingertips" 
Shane Causer 
page 8 

"Computers in Education — Have 
They Made a Difference?" 
Mark Pelczarski 
page 13 

"What Do You Do With Your 
Computer? — Is the Expense 
Justifiable?" 
George Blank 
page 13 

"Goal" 

(Apple game of logic) 

Fred Pence 

page 14 



"Computer Graphics" 
(How to scale objects) 
Joan Truckenbrod 
page 15 

"Wandering Along Pathways 
Through the ROM" 
Robert F. Nicholas 
page 16 

"Stereo Generator" 

(Apple) 

Dandelion Micro Products 

page 18 

"Developing Data Base 11" 

(Change and delete are added for 

S-80, Apple, and Atari) 

Mark Pelczarski, James Garon, 

and Rich Bouchard 

page 22 

"Concentration 11" 

(S-80) 

Randy Hawkins 

page 22 

"Super Barricade" 

(Atari) 

Paul Johnson 

page 24 

"Dr. Livingston/in search of" 

(S-80) 

Carl and Karen Russell 

Ralph and Becky FuUerton 

page 26 

"Foosball" 
(Apple) 

Douglas Johnson 
page 30 

"Lone Star Corral" 
(S-80 game) 
Robert C. Hall III 
page 34 



"Adventurer's Guidebook" 
(Shorthand, maps, and mazes) 
James Garon 
page 36 

"Sound For Your Computer" 
(S-80 program) 
James Hagani 
page 41 

"Unlimited Level II User Calls" 

(S-80) 

Charles C. Edwards 

page 44 

"Tone Generator for the Stereo 

Generator" 

Dandelion Micro Products 

page 45 

"HPLOT and DRAWTO for the 
S-80" 

James Garon 
page 45 

"Sleuth" 

(Atari word game) 
Paul Johnson 
page 48 

"Ricochet" 
(Atari) 

Paul Johnson 
page 48 

"Developing Data Base I" 

(Putting in information, saving it, 

and recalling it) 

Mark Pelczarski, James Garon, and 

Rich Bouchard 

page 50 

"Video Easel Review" 
James Garon 
page 52 



oft5ia 



30l^^^^.„ ' 



"Garon's Goodies" 

(S-80 programming concepts for 

space compression codes) 

James Garon 

page 25 

"Sound For Your Computer" 

(S-80) 

James Hagani 

page 32 

"Computer Graphics" 
(3-D for the Apple) 
Joan Truckenbrod 
page 66 



"The Hidden Colors in Graphics 8" 
(Atari) 
James Garon 
page 69 

"Checker Challenge" 
(Solitary puzzle for the Atari) 
James Garon 
page 69 

"Dr. Livingston explained" 

(Documentation) 

Carl and Karen Russell 

Ralph and Becky Fullerton 

page 76 



October 1980 
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"Inhotep" 


"Interna-Maze" 


"Datapoke" 


(S-80) 


(Apple) 


(S-80) 


Terry Clark 


Dennis Ward 


William K. Mason 


page 18 


page 43 


page 49 

"Strings and Things" 


"World Series" 


"Moonlanding" 


(S-80 and Atari graphics) 


(Atari) 


(Apple) 


Mark A. Ohlund 


David Bohlke 


Herb Sandy 


page 60 


page 26 


page 44 


"Chainer" 


"Escape" 


"Earth-Port 11" 


Frank R. Neal 
page 62 


(S-80 Maze with a view) 


(S-80) 


Joel Mick 


Phil Case 


"Mumath Review" 


page 34 


page 46 


James Garon 
page 81 


"Monster Maze" 


"Prepack" 


"Double Cannon" 


(S-80) 


(S-80 utility program) 


(Atari shootdown for two) 


Joel Mick 


John R. Olsen 


Dave Bohlke 


page 36 


page 48 


page 50 




November 1980 

"Card Draw" 

(S-80 computer card shuffler) 

Arthur decker 

page 19 



"Developing Data Base III" 

(Sorting routine for S-80, Apple, 

and Atari) 

Mark Pelczarski, James Garon, and 

Rich Bouchard 

page 30 



"Copycat -I-" 
(S-80 live key input routine) 
A. Douglas Werbeck 
page 87 



"Meteor Storm" 

(S-80) 

Roy Harper 

page 23 



"Kriegspeil" 

(S-80 wargame for two) 

Ron Potkin 

page 34 



"Collision" 
(Apple) 

Mark Pelczarski 
page 44 



"Z-80 Softcard and DOS 3.3" 


"Bowling' 


(Apple reviews) 


(Apple) 


Mark Pelczarski 


Phil Case 


page 42 


page 47 



"Computer Aided Drawing and 

Design" "Engineer" 

(Rotation techniques) (Atari) 

Joan Truckenbrod James Hagani 

page 74 page 50 



"Mad Scientest" 
(S-80 Adventure) 
Thomas Hanlin III 
page 52 



"Trench" 

(Atari program to destroy the Death 

Star) 

Tim Hays 

page 66 



"Boing" 
(S-80) 

Ron Webster 
page 82 



"Cards' 
John T. 
page 57 



Phillips 



"Keyboard Organ" 

(Apple) 

Rob Hausman 

page 62 



"Pocket Tape Dubber" 

(S-80 device to make to duplicate 

cassette tapes) 

Edward Ting 

page 85 

continued on next page 
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"Developing Data Base IV" 


"Squish-3" 




rr . n^ 


(Search routine for the S-80, Atari, 


(Add 2K to your S-80 programs) 




^ rw^ie?— . ' ^^m 


and Apple) 


Dave Archibald 




■» ^H 


Mark Pelczarski, James Garon, and 


page 59 




W^ j^l 


Rich Bouchard 








page 30 


"Command" 




An Anini.itfd 


"Connect-A-Dot" 


(S-80 command files) 
Denslo Hamlin, Jr. 




CHRISTMAS CARD ^- 

SPACE DODGE 

APPLE BASEBALL ^' 


(Apple Program) 
Duane Barts 


page 61 




SPfEDEElO ,."■■■ 
WORD PROBLEMS 


page 34 


"Baseball" 




TEIE DATA BASE. . . 
Ill Scinh Oi 




"Word Problems" 

(S-80 educational math program) 


(Apple Program) 

Dave Bohlke and Steve Macleay 

page 65 




KIDNAPPED! 

C.iii vt»ii Estapei 


Denslo Hamlin, Jr. 






page 38 


"Space Dodge" 

(S-80 and Atari game) 

Mike McKenna and Rich Bouchard 

page 70 


December 1980 


"Missile Evasion" 

(S-80 version of "Head On") 




Thomas Harlem an 






page 43 


"States and Capitals" 




"Christmas Card" 


(Atari matching game) 


"Say Yoho" 


(Apple program with sound) 


David Bohlke 


(How to put Adventures on strinj 


ly Fred Pence 


page 80 


floppy for the S-80) 


page 48 




Scott Adams 
page 23 


"Kidnapped" 


"Speedello" 

(Atari strategy game) 




(S-80 adventure) 


Dave Bohlke 


"What to Do While the Program 
Loads" 


Peter Kirsch 
page 52 


page 88 


Sherry M. Taylor 
page 28 


"Whoa" 


"Reviews of Olympic Decathlon 


(How to slow down S-80 listings) 


and Galaxy Invasion" 




Shane Causer 


Dave Albert and Glen Ohlund 




page 57 


page 95 




' i^s^Hj^^^^^^^^^^^^^^^HHI 


"Say Yoho" 


"Convoy" 




(Rules for good compunovels) 


(S-80 and Apple game) 




mSi: ■ : ; ^.^•■■^^-^ 


Scott Adams 


William Morris and John Cope 




W.:: ' ' :-v^--:.-^' 


page 26 


page 48 




I ; v^R' 


"Press-ups" 


"Ship Destroyer" 




..^Mife^^^fc; 


(Match wits with your S-80) 


(S-80 game) 




^^^^^' 


Carl and Ellen Weaver 


Chris Freund 




page 31 


page 60 






"Take-A-Part Ship Destroyer" 


"Angle Cannon" 






Phillip Case 


(Atari program) 




,-'i,| 


page 39 


David Bohlke 
page 62 


January 1981 


"Computer Space" 


"Animation" 




(Apple space war game) 


(Atari 3-D) 




William Edmunds 


Thomas G. Marshall 


"Developing Data Base V" 


page 40 


page 65 


(Develops search routine further) 






Mark Pelczarski, James Garon, a 


nd "Pinball 11" 


"Using Those Hidden Commands" 


Rich Bouchard 


(Apple game) 


(Level II Disk commands) 


page 16 


Thomas Deaux 


Phillip Case 




page 43 


page 71 
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"Fugue" 

(Atari plays Bach fugue) 
William Morris and John Cope 
page 74 



"Computer Graphics" 
(Apple 3-D techniques) 
Joan Truckenbrod 
page 83 



"Reviews of Olympic Decathlon 
and Flight Simulator" 
Dave Albert and Phil Case 
page 95 




"FAMOUS MVIttCS HANGMAN 
TANKS-A-IOT 
THE DATABASE . . , FrinI rormjllini! _, 

i,.i..rriAi<c.,mm..,.j :^lljl^^0^ 



February 1981 



"Developing "Database VI" 
(Capabilities for print formatting) 
Mark Pelczarski, Rich Bouchard , 
and PhilUp Case 
page 16 

"Computer Graphics" 
(3-D rotation) 
Joan Truckenbrod 
page 22 



"Denizens of Byte Hotel" 
(Memory management)" 
Roger W. Robitaille 
page 36 

"Eye/hand coordination" 
(Using computers with children) 
Judy Neyhart 
page 56 

"Out of Sorts" 
(Sorting techniques) 
George Blank 
page 66 

"The Art of the One Liner" 
Phillip Case 
page 76 

"Reviews of Visicalc, Enhanced 
Basic, Lunar Lander, and 
Interactive Fiction" 
Phillip Case and Dave Albert 
page 80 

"Long Distance" 
(S-80 program) 
Phillip Case 
page 33 

"Mini Golf" 

(S-80 and Atari) 

Mitch Voth and Rich Bouchard 

page 42 



"Miner" 

(S-80, Apple, and Atari game) 

Phil Case, Steve Justus, and Rich 

Bouchard 

page 48 

"Famous Sayings Hangman" 
(Apple game)" 
Mark Cross 
page 59 

"Changing Hearts" 
(Atari brain twister) 
Stan Ockers 
page 64 

"Tanks-A-Lot" 
(S-80 tank duel) 
Mark Koenig 
page 69 

"Darts" 

(Apple program) 
John Daoust 
page 84 

"Hiding Your Code (Part 1)" 
(How to protect your S-80 program) 
Phillip Case 
page 70 

"Say Yoho" 
(Software piracy) 
Scott Adams 
page 12 
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"I Don't Think We're in Kansas 
Anymore" 
Mark Pelczarski 
page 12 



"Say Yoho" 

Scott Adams 
page 19 



"Math Decathlon" 
Jon Voskuil 
page 21 

"Basic Personified" 
Roger W. Robitaille 
page 26 



"Bugs, Worms & Other 
Undesirables" 
SoftSide Editors 
page 26 

"My Side of the Page" 
Lance Micklus 
page 30 

"Developing Data Base VII" 
Mark Pelczarski and Rich Bouchard 
page 34 

"Volcano" 
(S-80 game) 
Victor T. Albino 
page 36 
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"Flags" 

(Atari) 

William Morris and John Cope 

page 45 



"Reviews of ABM, Galaxy Wars, 
and Monty plays Monopoly" 
Dave Albert and Jon Voskuil 
page 71 



"Hardware Corner" 
(Cassette recorders) 
Ed Umlor 
page 88 



"Strategy Strike" 

(S-80 and Apple) 

David Steenson and Jon Voskuil 

page 52 

"Computer Graphics" 
(3-D rotation) 
Joan Truckenbrod 
page 66 

"Mini Golf" 

(Apple) 

Mitch Voth and Steve Justus 

page 68 



"Number Battle" 
(Atari) 
Dave Bohlke 
page 72 

"Score 4" 
Stephen Miliken 
page 76 

"Big Apple Adventure" 
Christopher U. Light and 
Chris Light Jr. 
page 79 



"What's New" 

(Model III and Super Utility) 

Ed Umlor 

page 89 

"Atari Memory Upgrade" 
Paul Johnson 
page 92 

"The Money Whirlpool" 
Judy Neyhart 
page 94 
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"Modifying String Variables " 
(S-80) 

Benjamin Junge 
page 10 

"Messiah" 

(Atari) 

William Morris and John Cope 

page 20 

"International Bridge Contractors" 
(S-80) 

Phillip Case 
page 22 



"Computer Graphics — 

Perspective" 

(Apple) 

Joan Truckenbrod 

page 26 



"Convoy" 

(Atari) 

William Morris and John Cope 

page 34 



"Assault IV" 
(S-80) 

Jerald Uptain 
page 42 



"Dominoes" 
(S-80) 

Peter Kirsch 
page 48 



"Applesoft Chaining" 
Murray Summers 
page 54 



"Skunk" 
(Apple) 
John Daoust 
page 58 



"Strategy Strike" 

(Atari) 

David Steenson and Rich Bouchard 

page 60 



"Math Decathlon" 
(Apple) 
Jon Voskuil 
page 66 



"What To Do After the Program 
Has Loaded" 
Ed Ting 
page 69 

"Robot Builder" 
(S-80) 

Arnold Gross 
page 70 

"Flags" 

(Apple) 

William Morris and John Cope 

page 74 

"Battle at Sea" 
(Apple) 
Jon Voskuil 
page 76 



"Paddle Sound Effects" 
(Apple) 
James Dwyer 
page 83 



"Reviews of Temple of Apshai, 

Apple Machine Language, and 

Dragonquest" 

Michael Humes, Jon Voskuil, and 

Dave Albert 

page 84 

"Auto Modprog" 

(S-80 programming perspectives) 

Shane Causer 

page 93 
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HELLFIRE WARRIOR 

from Automated Simulations 

One of the most popular fantasy 
games of all times is Dungeons and 
Dragons'" . Riding the crest of that 
popularity to a peak of its own, the D 
& D style Dunjonquest series from 
Automated Simulations has steadily 
been increasing its audience to the 
point where each new offering is 
breathlessly anticipated by its 
dedicated followers. 

"Hellfire Warrior", the newest in 
this series, is no disappointment. The 
cover art, which comes on both box 
and book, displays a fiery demon 
hovering ominously above an un- 
conscious female warrior. This image 
is bathed in an explosion of shaded 
blacks, yellows and reds. I wish they 
would sell posters of this picture, I'd 
buy one right now. 

The cover art sets the tone for the 
further adventures of Brian Ham- 
merhand, Fantasy Warrior and 
Adventurer, whose exploits votees of 
Dunjonquest have been following 
since the first ziplock bag. Brian, 
who can't seem to stay away from in- 
trigue and danger, rescues ShaHmar, 
a female warrior, from a taunting 
mob of unbehevers in her tale of a 
successful descent and emergence 
from an ancient labyrinth which has 
claimed every mortal who dared test 
its dangers. Brian has returned here 
because of a persisting dream which 
haunts him at night, a dream of an 
enchanted warrior queen held 
prisoner for 300 years deep in the 
demon-haunted bowels of a cavern 
not far from the site of Apshai. If 
Brian is to attempt to free her, he 



needs very potent magic and highly 
proficient weaponry, which means he 
will have to penetrate the depths of 
the Temple to acquire these things 
and the skill to use them.... 

If all this seems a little far-fetched, 
remember, we're still in the 
DOCUMENTATION! The com- 
puter is sitting dark on the desk. 
Carefully studying the book that 
comes with the game is a must. In the 
case of "Hellfire Warrior", it is not a 
bad idea to get a couple of lesser 
Dunjonquests under your belt, or at 
least to have a very good working 
knowledge of the game structure. 
"Hellfire Warrior" is brutal. 

Our old friend the Innkeeper is 
back and from the look of it he must 
have been practicing selling oil to 
Arabs during his vacation between 
games. He is just as tough to deal 
with as he was the first time we en- 
countered each other. "Hail and well 
met", is a prelude for this electronics 
Ebenezer to skin every dime you 
have, while giving up the minimum 
possible weaponry in return. He is 
every inch a match for any salesman 
or bargainer in existence. He's fun, in 
an exasperating sort of way. 

Having survived verbal combat 
with the Innkeeper, it is now time to 
enter the Dunjon. Newcomers will 
find that they are on Level 5, or "The 
Lower Reaches of Apshai", the first 
floor of which is specifically a sequel 
to the "Temple of Apshai" program 
which leads off the series. This level 
is described by the author as "prob- 
ably less dangerous or instantly fatal 
than the fourth level of TEMPLE". I 
was killed within five minutes, not- 
withstanding, and even reincarnation 
by the Dwarf did little good. I only 
bit the dust again. 

"Hellfire Warrior" requires im- 
agination. The graphics in the S-80 
version are faster than the earlier 
games, but are still block, line and 
blob, which is as much as the S-80 is 
capable of while still delivering the 
screen information and room display 
data. These games do not pay lip ser- 
vice to those who believe that every 
rivet must be shown in a warrior's ar- 
mor before a game can be called 
"graphic". Automated Simulations 
has developed its own style, im- 
proved it to the maximum and are 
aiming squarely at those gamers who 
can draw fantasy pictures in their 
minds. 
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"Hellfire Warrior", like its 
predecessor "Temple of Apshai", 
and indeed, all of the Dunjonquest 
series, is not for everyone. It requires 
dexterity, imagination, and a dedica- 
tion to task, previously reserved only 
for Adventure fans. The production 
is flawless. Even the young computer 
waifs who periodically invade my lab 
found it highly entertaining, as did I. 

One thing, though. As an avid 
science fiction and fantasy reader, I 
would like to see a compiled edition 
of the Adventures of Brian Ham- 
merhand, in book form. The writing 
style and prose in the documentation 
booklet do not satisfy my yearning to 
read more about the exploits of this 
adventurer who would penetrate Ap- 
shai to become a Hellfire Warrior. 

How about it, author? I'm sure 
I'm not alone. 

Bob Lidell 

PSEUDODISK: 
A Disk Simulator 
for Integer Basic 

from Hayden 

Don't let the name mislead you. 
Even if you already have a disk, you 
can probably make good use of 
"Pseudodisk". And if you don't 
have a disk, it might be just the thing 
to fill in until you can afford one 
(and to continue using after you get 
one). 

Andy Neuschatz has written a utili- 
ty which allows as many as 16 Integer 
BASIC programs to reside in your 
Apple's memory simultaneously. 
Programs may be typed in from the 
keyboard, or loaded from tape or 
disk, and then SAVed to 
"Pseudodisk". They may then be 
LOADed back from "Pseudodisk" 
and run as usual. You can get a 
CATalog of the "Pseudodisk" file at 
any time, which also tells you how 
much memory you've used and how 
much is still available. The entire file 
of programs may be saved to tape or 
disk as a unit, and loaded back in the 
same way. Programs are also easily 
linked to one another, so that one 
program can automatically run any 
other one in the file. 

To give you a feel for the way it 
works, here is how you would load 
two programs from tape, store them 
in a "Pseudodisk" file, and then run 
the first program. You begin by 
LOADing and RUNning 
continued on next page 
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continued from previous page 

"Pseudodisk". (Although the pro- 
gram is in Machine Language, it 
loads just as a normal Integer BASIC 
program does.) Then you type in the 
following series of commands: 
NEW: NEW Is now a "Pseudodisk" 
command. 

LOAD: Normal load from tape — 
1st program. 

SAV FIRST: Saves 1st program in 
P-disk file under the name "FIRST". 
NEW: Clears program memory, not 
P-disk file. 

LOAD: Normal load from tape — 
2nd program. 

SAV SECOND: Saves 2nd program 
in P-disk file under the name 
"SECOND". 

LOA A: Loads 1st program into pro- 
gram memory from P-disk. 
RUN: Runs 1st program as usual. 

One of the plusses of 
"Pseudodisk" is that the saving and 
loading of programs, once they are in 
Apple's memory, are instantaneous. 
If you have a group of programs that 
you want to use together (games, 
graphics displays, whatever), storing 
them together in a "Pseudodisk" file 
will allow you instant access to any 
one of them. Not to mention pause- 
free chaining of one program to the 
next, which even a "real" disk can't 
beat. 

I should mention that there are a 
couple of crucial errors in the 
documentation of "Pseudodisk" 
which need to be corrected in order to 
save and retrieve files from disk suc- 
cessfully. The "TO DISK" and 
"FROM DISK" programs listed on 
page 8 should read as follows, accor- 
ding to author Neuschatz: 
To disk; 

10 DIM A$(30) : INPUT 
"NAME?",A$ 

20 POKE 202, PEEK(22) 

30 POKE 203, PEEK(23) 

40 POKE 76, PEEK(24) 

50 POKE 77, PEEK(25)-I- 1 

60 PRINT "[ctrl-D] BSAVE 
";A$;"2,A21,L5" 

70 PRINT "[ctrl-D] SAVE ";A$ 

80 END 
From disk: 

10 DIM A$(30) : INPUT 
"NAME?",A$ 

20 PRINT "[ctrl-D] BLOAD 
"■A$"2 

30 'poke 76, PEEK(24) 

40 POKE 77, PEEK(25)+ 1 

50 PRINT "[ctrl-D] LOAD ";A$ 

60 END 

There are two fundamental limita- 
tions in using "Pseudodisk". It only 
works with Integer BASIC, not Ap- 
plesoft, Pascal or Machine 
Language. And the number of pro- 
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grams that you can save in a single 
file is limited by the RAM of your 
Apple. But within those hmitations, 
you can do a lot with "Pseudodisk". 
A tape user will find horizons ex- 
panded considerably, and a disk user 
will be able to take advantage of the 
ability to group and chain programs 
together very conveniently. 

John Voskuil 
Strip Dice & Concentration 
from Adventure International 

What!!??!! X-Rated software in a 
family magazine? Well, not exactly. 
Despite the promise (?) of the 
packaging, "Strip Dice and Concen- 
tration" is pretty tame stuff. It is an 
adult party game, whose name 
describes it perfectly. One program is 
a "take off your clothes" version of 
the old classic Concentration game, a 
grid of 30 boxes which conceal the 
names of items of men's and 
women's clothing and the occasional 
wild card. The other program is vir- 
tually the same thing, only it allows 
for up to a dozen players, and is 
based on graphics dice rolls on the 
screen. 

The package itself is a little 
misleading. It bears a warning about 
"explicit sexual dialoge" (yes, that's 
how they spelled it) and "humorous 
sound effects and graphics", neither 
of which are particularly explicit nor 
offensive. Perhaps the word "tush" 
would upset the vehemently 
squeamish, but such language would 
hardly earn a PG rating in the 
movies. The graphics are either mun- 
dane or slow or both. 

There are some cute moments in 
the program(s) when certain types of 
clothing are removed... the computer 
prints out messages on the screen 
which could provoke a titter or 
squeal here and there. But if one is 
brash enough to get involved in 
games of this nature, one usually ex- 
hibits more spontaneous wit than the 
program does. 

One other feature of the program 
is the "special activities" section, 
wherein a bulletin flashes across the 
screen at random intervals, giving 
players special instructions of a 
somewhat tame nature. 

"Strip Dice and Concentration" is 
a straightforward novelty package. 
There is really very little to the pro- 
gram other than a certain amount of 
cuteness. The games themselves have 
been around forever, people have 
always been able to find devices such 
as playing cards or dice with which 
they can use to persuade their friends 
to disrobe. The only difference with 
this one is that it is done on a 
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microcomputer. It hardly poses a 
threat to the print or film cheesecake 
industries. 

Dave Albert 




BASKETBALL 

by John Allen (Acorn Software) 

There are two ways to measure 
sports-based game software: One is 
by an absolute standard whereby the 
game is judged against the real-Hfe 
sport it attempts to simulate; the 
other is to judge the program on its 
own merits, exclusive of any other 
considerations. "Basketball" from 
Acorn Software deserves to be 
judged in the latter fashion. 

A Machine Language program 
designed for one or two players, 
"Basketball" is an ambitious under- 
taking for the S-80. To begin with, 
the limited graphics capability of the 
S-80 makes it hard to approximate a 
fast-moving, smooth-flowing game 
like basketball. The lack of color on 
the S-80 further complicates matters 
by making it exceedingly difficult to 
distinguish which player is which. 
The basketball itself looks 
suspiciously like the alien flagship 
found in virtually all of the Big 5 ar- 
cade software on the market. 

John Allen, the author of "Basket- 
ball", has done as well as could be 
expected, given the inherent limita- 
tions of the idea. The game plays 
reasonably well. There are five skill 
levels for the single-player version, in 
which the computer is always the 
home team and starts the game with 
possession of the bail. The two- 
player version favors the player on 
the left by making him the home 
team. There are never more than two 
players on the court, one being either 
the computer or the human 
adversary. 

To play, one must manipulate five 
keys — one each to move in any 
direction, and one more to shoot. 
Here is where the first problem 



arises: The keys are clustered 
together on the keyboard in such a 
fashion as to preclude one-handed 
playing, and to make two-handed 
manipulation of the keys an exercise 
in digital contortion. Once one has 
refined manual dexterity to the point 
of being a fine art, one can then ap- 
proach such esoteric matters as steal- 
ing the ball and shooting. To steal the 
ball, one must place his player on top 
of the opponent's player, at which 
point the player who attempted the 
steal is guaranteed success in the 
endeavor. There are no fouls in this 
game, so the not-so-subtle approach 
of a head-on tackle seems to work the 
best. The larcenous defender has 
another advantage as well, he is, with 
little effort, able to overtake his op- 
ponent in a footrace. 

If, through some quirk of 
capricious fate, the offensive player 
reaches his basket in possession of 
what can only euphemistically be 
called the sphere, there arises the not 
unconsiderable matter of shooting. 
This reviewer has yet to figure out the 
logic of shooting. My player misses 
from underneath the basket while the 
computer's floats in these 25-foot 
jumpers that would turn Jamal 
Wilkes green with envy. Never- 
theless, this is only the voice of 
frustration carping in your ear and 
should be ignored. If there is a lesson 
to be learned here, it is that always 
play the home team when having a 
friend over for a game. 

Once one gets over the limitations 
of S-80 "Basketball", one realizes 
that it can be a lot of fun to play. It 
doesn't bear a whole lot of 
resemblance to the actual game, but 
it is written in Machine Language and 
thus the pace of the game is quite 
satisfying. After a while one gets used 
to the ball bouncing only when a 
player is dribbling it. The thrill of 
competition is still there, just hke in 
the real thing. However, one major 
flaw in the program is that it only 
plays one on one. Basketball is 
primarily a TEAM sport, the best 
teams are the one that move the ball 
around the floor. Computerized 
basketball, at least in the S-80 ver- 
sion, has no provision for this. 

All things considered. Acorn's 
"Basketball" is a satisfying first at- 
tempt at graphically capturing the ex- 
citement of a fine sport on the S-80. 
By no stretch of the imagination is it 
a true representation or a near 
simulation of the actual game, but 
once one gets over that stumbling 
block, hours and hours of enjoyment 
lie ahead. ^ 

Dave Albert ^^ 




Wargamer's delight 



Three from Potkin 



1). Krlegspiel II 



A much improved two-player version 
of the original. Krlegspiel II is a war- 
gamer's deligtit. Choose the number of 
mountains (up to 200) and pick a scenario 
from the 9,999 possible, and then watch 
the computer set up the pieces, towns, 
mountains and a river. To win, you must 
enter the capital city of your opponent or 
reduce his fighting strength to below 
half of your own 

S-80 Level II, 16K cassette $14.95 

#26-KRGS2 





2). Up Periscope 

The author of the popular Krlegspiel II 
has done it again. This time the action 
takes place at sea with one player con- 
trolling the submarines while the other 
attempts to sail around RADSHA Island, 
with at least three of his fleet surviving 
the attempt. This realistic wargame in- 
cludes sonar, depth charges, and 
torpedos. 

S-80 Level II, 16K cassette $14.95 

#26-UPER 



3). Warpath 



The Indians are on the warpath! The 
Chief, along with 24 braves, is out to 
take the garrison at the fort, or at least 
to stop reinforcements from entering the 
stockade. The General, with his 14 
troopers, is trying to relieve the garrison 
before the flag is captured. The player 
determines the scenario through place- 
ment of boulders that provide both 
shelter and obstacles. Favorite 

scenarios may be replayed. 

S-80 Level II, 16K cassette $14.95 

#26-WARP 
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HARDWARE CORNER 




by Edward E. Umlor 

Some of the most frequently 
asked questions lately are about 
printers. The new breed of low-cost, 
dot matrix, graphic, bi-directional, 
software razzle-dazzle printers are 
causing some confusion to the hob- 
byist programmer. How can I make it 
do all those great things I read in the 
manual? What is an "escape 
code"? What is a "control code"? 
This month the Hardhead is going to 
go mushy and try to give some soft- 
ware advice. Lord help us who jump 
into deep waters without our water 
wings! 

Let's start by defining control and 
escape codes. The control code can 
be output in a single CHR$ statement 
and performs such things as line feed, 
carriage return, form feed, double- 
wide (expanded) print, half-size (con- 
densed) print, and many reset func- 
tions. Escape codes require the com- 
bination of two CHR$. This would 
be (escape) CHR$(27) -I- CHR$(xx) 
— the code for the function. On the 
MX-80, for example, the double 
print (go back and print over the 
same line) mode is triggered by 
LPRINT CHR$(27) -l-"G" or by 
LPRINT CHR$(27);CHR$(71). 
REMEMBER THAT A CONTROL 
CODE DOES NOT REQUIRE THE 
CHR$(27) TO DO ITS JOB. That is 
really the only ground rule you have 
to remember! 

What are some of these codes for 
different printers? OK, here we go 
with some of the more heavily-used 
codes for printers we sell: 



MICROLINE 80: 

Carriage Return: CHR$(13) 

Line Feed: CHR$(10) 

Condensed Print: CHR$(29) 

Normal Print: CHR$(30) acts as a 

reset/default 

Expanded Print: CHR$(31) 

6 Lines/Inch: CHR$(27);CHR$(54) 

ESC-6 default 

8 Lines/Inch: CHR$(27);CHR$(56) 

ESC-8 

80 Chrs/Line: CHR$(27);CHR$(65) 

ESC-A 

64 Chrs/Line: CHR$(27);CHR$(66) 

ESC-B 

Condensed automatically gives 132 
characters/line and expanded gives 
40 characters/line. 
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MICROLINE 82: 

Carriage Return: CHR$(13) 
Line Feed: CHR$(10) 
Form Feed: CHR$(12) 
Condensed Print: CHR$(29) 
Normal Print: CHR$(30) 
Expanded Print: CHR$(31) 
Set Top of Form: CHR$(27); 
CHR$(53) 

6 Lines/Inch: CHR$(27);CHR$(54) 
8 Lines/Inch: CHR$(27);CHR$(56) 
Long Line: CHR$(27);CHR$(65) 
Short Line: CHR$(27);CHR$(66) 

EPSON MX-80: 
Carriage Return: CHR$(13) 
Line Feed: CHR$(10) 
Form Feed: CHR$(12) 
Emphasized Print: CHR$(27); 
CHR$(69) 

Double Print: CHR$(27);CHR$(71) 
Expanded Print: CHR$(14) 
Condensed Print: CHR$(15) 
CENTRONICS 730: 
Carriage Return: CHR$(13) 
Line Feed: CHR$(10) 
Expanded Print: CHR$(27); 
CHR$(I4) 

Reset Expanded Print: CHR$(27); 
CHR$(15) 




CENTRONICS 737: 
Carriage Return: CHR$(13) 
Line Feed: CHR$(10) 
Reverse Line Feed: CHR$(27); 
CHR$(10) 
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Proportional Print: CHR$(27); 

CHR$(17) 

Expanded Print: CHR$(27); 

CHR$(14) 

Reset Expanded Print: CHR$(27); 

CHR$(15) 

Condensed Print: CHR$(27); 

CHR$(20) 

Reset Condensed Print: CHR$(27); 

CHR$(19) 

I hope that the above will help you 
use your printer's capabilities more 
fully. I have not attempted to put 
down all the codes, only those that I 
have used most often. Now, how do 
we make the easiest use of all these 
codes when programming? 

The area of programming for 
specific usage has as many "easy" 
ways of doing it as there are pro- 
grammers in the world. The method 
described here is the one that I use in 
setting up the print routines. I hke to 
set up a string file of all the printer 
function codes that I am going to be 
using. This is done at the beginning 
of the program along with variable 
definitions and setting values. This 
allows me to just add a CODE 
STRING; to any LPRINT line to 
change the printer's format. This 
makes life a lot easier and makes 
much more efficient use of memory. 
For example: A$ = CHR$(10): 
A1$ = CHR$(13): 
A2$ = CHR$(27) -I- "E": A3$ = 
CHR$(27)-(-"F" 

Continue on until all your codes 
are done and keep a copy (crib sheet) 
by your elbow as you program. 

LPRINT A2$; "Now is the time for 
all good men to come to the aid of 
their country. " ;A3$ 

This LPRINT will print the Hne in 
the emphasized mode and then reset 
the emphasized mode before going 
on. It just does not take long to get 
back the space used to set up the 
strings. 

I hope that this little blurb will help 
you to use and enjoy your printer 
more. The printer is one of the most 
useful tools that can be connected to 
your computer. The more you know 
about using its full capabilities, the 
more useful it becomes. Well it's time 
for the old Granite Knoggin to sign 
off again. Please send in your ques- 
tions about hardware. I'm starting to 
run out of problems to write about. I 
sure have plenty of problems but I 
can't write about most of them. ^^ 



WHAT'S NEW 




by Edward E. Umlor 

HARDWARE 

This month we are not doing a 
hardware item. There are several 
reasons for this. 

First: We have not received any 
items from out there to review. If the 
manufacturers do not send us new 
product releases or samples for 
review, it is very difficult to do a 
hardware review. 

Second: I have not received a 
Model III with disk to work over and 
report on as the March article in- 
dicated. I have not given up hope yet, 
and it will be reviewed as soon as I 
can. 

Third: We haven't heard from any 
of you readers concerning any new 
products you have bought or heard 
about. It would be nice to hear 
something from you (good or bad), 
then at least I would know there real- 
ly is a SoftSide reader. About all I 
can say is HELP!!! 

SOFTWARE 

We have received a little item from 
Ram ware called " Autograf". TSE 
will soon have this program on the 
shelf (disk-based). The purpose is to 
allow you to create your graphics, 
save them on disk as a data file, and 
play them at any time. The program 
is written in BASIC and converts 
your picture into data statements for 
reading in a BASIC program. It does 
stick on a little four-liner at the 
beginning of the file for direct 
playback of your picture (one of the 
first to do this). 

The program has complete con- 
trols for setting or resetting pixels, 
storing your X, Y coordinates, con- 
verting to program with data 
statements including Hne numbers, 
and storing the converted file on 
disk. These are amply described in 
the documentation so I won't bother 
taking up space here. Of the different 
programs I have seen of this type, I 
like this one for the ease of combin- 
ing a picture into your program. 
Most are Assembly Language pro- 
grams and require insertion through 
USR function or some direct 
Assembly Language routine. Not all 
of us are up on these fancy tech- 
niques and want to stick to basic 
BASIC. 



How fast is it? It is written in 
BASIC. We all know that this will 
slow it down as compared to its 
Assembly Language counterpart. 
However, the fastest program in the 
world is totally useless, if you can't 
get the results into your program. I 
did find that once you become 
familiar with the speed of drawing 
(using the arrow keys), you could do 
a very complex pattern in reasonable 
(acceptable) time. The more you use 
it, the more accurate your initial 
moves become and the faster the pic- 
ture shapes up. Speed is more a func- 
tion of the operator than the pro- 
gram. It really helps to plot out your 
picture first, using one of R/S graph 
sheets. 

GEE MA!! I drew a picture. Now 
what do I do with it? This is where I 
like the routines built into this pro- 
gram. First you convert the picture. 
This routine allows you to back out 
before it's too late to add more to it, 
asks you for a disk filespec/tag, and 
then does its thing. You end up with a 
disk file that can be directly run or 
loaded from BASIC. WHOOPEE!! I 
have some pictures that I can recall 
while in BASIC. BIG DEAL!! Ac- 
tually, yes it is. These files can be 
combined in a BASIC program fairly 
easily. Load in your picture file, 
renumber into a fairly high line 
number area, and start your program 
that will use the picture. Append, af- 
fix, or string picture files together in- 
to a whole series. Let your imagina- 
tion and ability be your guide. 

If you are programming in BASIC 
and don't like the hassle of typing in 
long strings to do your drawing, then 
this little package is for you. We hope 
to have it in production by the time 
you read this. 

Well that's all for now. Please 
write in and let us hear from you.£^ 

EDITORIAL continued from page 4 

postulated on fantasy. My question, 
then, is where are other true simula- 
tions? In the sympathetic 
magic/wargame version of simula- 
tions, the actual components of the 
exercise were carefully controlled to 
cover every aspect of the reality 
under scrutiny. In most microcom- 
puter simulations I have seen, this 
faithfulness to life is secondary at 
best; usually it is ignored. To fan- 
tasize is nice, to simulate is ^^ 
sublime. ^1 
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Typing 
Tutor 

by Roy Groth from . . . 




Wish you were a better typist, 
but don't want to take (or pay for) 
a class? Teach yourself to type 
with the aid of your 
microconnputer. With TYPING 
TUTOR you will be quizzed and 
graded, but you set the pace at 
which you learn. TYPING TUTOR 
is a set of programs that lets you 
become as good a typist as you 
wish, allowing you to advance 
from one level to the next when 
you feel comfortable with your 
skills. 

Let "hunt and peck" slip into 
the past, teach yourself speed and 
accuracy on the keyboard with 
TYPING TUTOR. 

S-80/16K/Cassette/Level II 
#26-TYPE $19.95 
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6 Soulh Si .Millord. NH 03055 (6031673-5144 
TOLL FREE OUT OFSTATE 1 aOO-2581790 
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ISTHUOFIC 

(Fop Your Apple) 



NIBBLE 18: The Reference for Apple computing! 

NIBBLE IS: One of the Fastest Growing new Magazines in 
the Personal Computing Field. 

NIBBLE IS: Providing Comprehensive, UsefuLand 
Instructive Programs for the Home, Small Business, and 
Entertainment. 

NIBBLE IS: A Reference to Graphics, Games, Systems 
Programming Tips, Product News and Reviews, Hardware 
Construction Projects, and a host of other features. 

NIBBLE IS: A magazine suitable for both the Beginner and 
the Advanced Programmer. 

Each issue of NIBBLE features significant new Programs of Commercial Quality. Here's 
what some of our Readers say: 

- "Certainly the best magazine on the Apple 11" 

- "Programs remarkably easy to enter" 

- "Stimulating and Informative; So much so that this is the first computer magazine I've 
subscribed to! " 

- "Impressed with the quality and content." 

- ' NIBBLE IS TERRIFIC! ' ' 

In coming issues, look for: 

D Stocks and Commodities Charting D Assembly Language Programming Column 
D Pascal Programming Column D Data Base Programs for Home and Business 
D Personal Investment Analysis D Electronic Secretary for Time Management 
n The GIZMO Business Simulation Game 

And many many more! 

NIBBLE is focused completely 
on the Apple Computer systems. 

Buy NIBBLE through your local 
Apple Dealer or subscribe now with 
the coupon below. 

Try a NIBBLE! 



so IK 

I .rM CUs- .ir Air Mail l^ required tiir all APO. I- HO ami all lureipn aJdrevses 

wilh Ihe lollnwififj adjilional aniounls 

Africa: North $32.00 
Air Mail Postage Rates 12-14 oz.x 8 Central $43.00 

Europe $32.00 South $43.00 

Mexico and Central America $21 .00 V" East Australia $43.00 

Canada $18.00 



South America $32.00 
Middle East $35.00 



nibble 



Box .125, Lincoln. MA. 0177."! (617) 259-9710 

I'll try nibble! 

Enclosed is my $17.50 (for one year). 
(Outside U.S., see special rates on this page.) 

□ Check □ money order 

Your subscription will begin with the next issue publishefl after 
receipt of your check/money order. 



Name . 



Addres,s_ 

City 

State 



Zip_ 



APO FPO $7.50 
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ORIENTEERING 

AT JACQUE'S COULEE 



by Michael A. O'Keefe 
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"Orienteering at Jacque's Coulee" 
is an S-80 simulation written in Level 
II BASIC and requiring 16K of 
memory. 

If you have no idea what the above 
title means, then you are but one of 
the great muddy majority. But by the 



time you've read this article, and par- 
ticularly by the time you've spent a 
few evenings with this computer 
simulation, you will be one of the 
elite minority who knows where the 
real action is. 
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PART I: AN INTRODUCTION TO 
ORIENTEERING 

"Orienteering" is the sport of us- 
ing a map and compass to find your 
way through unfamiliar terrain. The 
skills developed in orienteering can 
continued on next page 
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continued from previous page 

be directly applied to backpacking, 
hiking, mountaineering, birdwatch- 
ing, and other outdoor activities. 

BASIC SKILLS 

1. Using a Compass 

North, south, east, and west are 
the four cardinal points of the com- 
pass. When you orienteer, however, 
you will often want to go in some 
direction other than just these four. 
This is why a modern compass is 
divided into 360 different directions, 
one direction for each degree of a cir- 
cle. Each of these directions is called 
a bearing, and is identified by the 
angle formed clockwise from north 
to the direction of travel. The bearing 
of east is 90 degrees; south is 180 
degrees; west is 270 degrees; and 
north has a bearing of (or 360) 
degrees. 

On the map a normal protractor 
can be used to measure the bearing of 
any direction of travel. Once this has 
been determined, a magnetic com- 
pass is used to determine this bearing 
in real life. A special device called a 
protractor compass, which does both 
of these things, has been developed 
for orienteering. You will find a ver- 
sion of such a compass, for use with 
the computer simulation, on the 
next page. 

2. Reading a Map 

If you remove all the spaghetti-like 
contour lines which tend to clutter up 
all topographic maps, what is left is 
generally easy to understand. Such a 
map is like a photograph taken from 
high up. If you can read a highway 
map, you can read these portions of a 
topographic map. 

Contour lines are more difficult to 
get used to. They do not represent 
anything you can see, yet they are 
probably the most important part of 
the map. Contour lines show the 
shape of hills, the steepness of slopes, 
and the presence of all sorts of holes, 
bumps, gullies, and imperfections in 
the surface of the ground. 

A contour line is defined as a set of 
all points which are at a given altitude 
— say 800 feet above sea level. 
Topographic maps contain many 
contour lines, each at an altitude a 
certain interval from the text. A map 
could have contour lines for 800, 810, 
820, 830 and so on; such a map 
would have a contour interval of 10 
feet. The following rules should help 
in understanding contour lines. 

1 . A hill summit is circled by con- 
tour lines. 

2. If you travel across one contour 
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line to another, you are on a slope go- 
ing either uphill or downhill. 

3. The closer together contour lines 
are, the steeper is the slope they 
represent. 

4. If a contour line has a "v" in it 
and the "v" points uphill, the "v" 
represents a depression or gully on 
the side of the hill. 

5. If a contour line has a "u" in it 
and the "u" points downhill, the 
"u" represents a bump or ridge on 
the side of the hill. 

Any map is a miniature representa- 
tion of an area. Just HOW miniature 
is indicated by the map's scale. A 
scale of 1:15000 means that one unit 
of measure on the map is the same as 
15,000 of the same unit of measure in 
real life. Since converting inches to 
yards or feet is difficult, orienteers 
measure in metric. With a scale of 
1:15000, then, one centimeter on the 
map equals 150 meters in real life. 

ORIENTEERING TECHNIQUES 



In orienteering one tries to choose 
the fastest route between two points. 
Often the shortest route is not the 
fastest. The ability to select which is 
the fastest is the essence of orienteer- 
ing. Common sense and experience 
are essential in this route selection, 
but there is a basic core of techniques 
and rules which can be of great help. 
A summary of these follows. 

1 . Avoid depending on following a 
precise compass bearing. Even if you 
go slowly and carefully, you'll almost »^ 
always wander a few degrees off the pp 
course you want to travel; and if you 
try to hurry at all, you could end up 
20 to 30 degrees off your course. If 
you need to follow a precise bearing, 
try to do so for less than a couple of 
hundred meters; a few degrees of er- 
ror is acceptable over such short 
distances. 

2. Look for an easy-to-find feature 
near your goal. If there's a pond, 
crossroad, or some other easily found 
feature within a couple of hundred 
meters of your goal, go fast to the 
easy feature and then slowly and 
carefully to your goal. This is called 
using an attack point and is a very 
useful technique. 

If your goal is on a path or road, 
you can take advantage of this by 
travelling fast to a portion of the path 
to one side of your goal, then follow- 
ing the path to the goal. It is impor- 
tant, of course, that you travel so 
that when you reach the path you're 
sure which way to follow it to get 
where you're going. This technique is 
called aiming off and is also very 
useful. 
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3. Recognize when you've made an 
error. Since you WILL make 
mistakes, it's valuable to try to detect 
them as soon as possible. Look for 
features that will tell you when 
you've gone too far, or wandered to 
the right, or gone in the wrong direc- 
tion. 

4. Be aware of how far you've 
gone. Keep a mental note of how far 
you've travelled from your last 
known location. You can simply 
guess at this by intuition, but it is bet- 
ter to keep a count of your paces. 
This information will tell you when 
you've gone past your goal, where 
you are on a path, or about where 
you are when you get disoriented. 
(Orienteers never get "lost"!) 

5. Follow along linear features 




when possible. If a path, roadway, 
ridge top, stream, or other linear 
feature roughly follows the direction 
you're traveling, follow along with it. 
Such features are easy to locate and 
can be followed as fast as you care to 
travel with no danger of wandering 
off course. The problem with using 
such a feature is that it's hard to 
determine where to leave it. Pace- 
counting or an identifying feature 
(trail intersection, building, etc.) is 
necessary to establish when it's time 
to change direction. 

6. Go as far as you think you 
should, then go a little further. 
Unless you have a very good reason 
to think otherwise, you generally 
don't reach a goal as fast as you think 
you should. So if you're travelling 
along and haven't been pace- 
counting, and there are no distinctive 
features in sight, you generally won't 
reach your goal until after you expect 
to. 

7. Believe your compass. If you 
think that your compass is wrong, 
check to be sure that there aren't any 
large pieces of metal immediately 
around it. If there aren't, assume that 
the compass is correct — even if 
you're sure that it's wrong. Your in- 
ternal sense of direction is much 
easier to confuse than is the compass. 

8. If you get disoriented, look for a 
long, distinctive feature and head for 
it. Typically, such a feature is a road. 
When you reach it, follow it until you 



reach a distinctive feature (e.g. a 
stream crossing) and use that to 
establish your location. 

PART II: THE COMPUTER 
SIMULATION 

Jacque's Coulee is the local name 
of a small stream in central Min- 
nesota. Along that stream is an 
orienteering area complete with 24 
permanent markers, as detailed on 
the accompanying map. You are in- 
vited to orienteer there; and you 
don't even have to go to Minnesota 
to do so. With the Jacque's Coulee 
orienteering simulation you can 
"run" in this area from the comfort 
of your armchair and keyboard. The 
simulation allows the computer to be 
your eyes and legs at Jacque's Coulee 
while you make the orienteering deci- 
sions. Do you take the road to travel 
fast, or go cross-country to save 
distance? Use an attack feature, or 
precise bearing? Up over the hill, or 
around it? The decisions, and conse- 
quences, are yours. 

HOW TO PLAY THE 
SIMULATION 

The computer uses a 600-by-600 
grid to locate any place in the 
orienteering area. Whenever the com- 
puter gives you coordinates, or you 
give them to the computer, the col- 
umn is always the first number and 



the row is the second. See-through 
graph paper can be used to help you 
determine the location of any coor- 
dinates. 

As the simulation begins the com- 
puter will ask you for the coordinates 
of the location at which you want to 
start. You can tell the computer this 
by typing the column, then a comma, 
then the row, and then ENTER. 
Your direction of travel is given to 
the machine by typing a bearing and 
then pressing ENTER. Any bearing 
between and 360 may be used (0 
and 360 both representing straight 
north). The vertical grid lines on the 
map indicate magnetic north, with 
north to the top. 

You may run along the bearing you 
select at any one of five speeds: 1 is 
very slow, 2 is slow, 3 is normal, 4 is 
fast, and 5 is very fast. To select your 
speed, simply type a number and 
press ENTER. It is important that 
you remember that the faster your 
speed, the greater the error you may 
realize as you try to follow along 
your bearing. At the slowest speed 
the maximum navigational error that 
you could realize is 2 degrees; at the 
fastest speed it could be as much as 
35 degrees. 

After you have set your speed, the 

computer will move you 25 meters 

along the bearing you selected, 

altered by navigational error. At this 

point you will stop and "look 

around." Generally the computer 
continued on page 91 
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An ENTIRE STAR FLEET FOR $39.95. 

YOU'LL LOVE 




Like some future starship 
admiral hurtling through the vast 
void of hyperspace at speeds 
beyond comprehension, you are 
challenged to a battle for cosmic 
supremacy. 

THE WARP FACTOR the latest 
computer strategy game from SSI, is 
what every space war fan has been 
waiting for - the ability to command 
a star fleet in realistic battle 
simulation against alien vessels 
It is light years ahead of all 



other "space" games because it 
doesn't just fill your screen w/ith 
pretty pictures and little substance. 
THE WARP FACTOR is a high- 
powered tactical simulation that 
places you squarely in the Captain's 
role, dealing with the critical 
parameters of interstellar battle 
such as sensor and scanner 
readings; energy allocation for 
weapons (phasers, disruptor bolts, 
photon and plasma torpedoes), 
shields, and warp engines; and 
battle damage. 



THE STARSHIPS. With twelve diffe- 
rent starship designs - ranging 
from dreadnoughts and fighters to 
star bases and base stations - 
representing five Galactic Empires, 
you can set up an astronomical 
variety of confrontations against 
another player or the computer. 

Each class of vessels is awarded 
a point value to reflect its relative 
strength so you can assemble fleets 
of comparable power for a balanced 
game. Of course, youKre free to play 
the intrepid hero against seemingly 
hopeless odds -perhaps mere 
fighters against a star base! 

Employing up to ten ships, both 
sides can give individual or fleet 
orders, the latter allowing all your 
ships to execute your commands in 
unison. 

THE COMPUTER aside from being 
the game's perfect administrator and 
referee, also serves as your ever- 
ready, ever-capable nemesis in the 
multiple solitaire scenarios provided: 
The Reman Chase (replete with the 
Cloaking Device, Plasma Torpedoes, 
and neutral Zone); Attack on Star 
Base; Attack on Base Station; and 
Dogfight 

THE TWO-PLAYER VERSION is 

essentially free-form. With each 
player choosing starships from a 
different Empire, you can create 
scenarios ranging from space skir- 
mishes to a full-scale, all-out star 
war! 

FOR $39.95, THE WARP FACTOR is 
undeniably the most complete and 
detailed simulation of tactical star- 
ship combat yet designed. It comes 
with the 5Vi" program disc a 
Starship Operating Manual; 3 Star- 
ship Data Cards; and a Game 
Selection Card - all of which w\\\ 
convert your computer into the 
gateway to galactic adventure. 



THE WARP FACTOR . The Universe Awaits Your Command. 




6 South St .Millord, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-80O-258-1790 



While you're at it you can also get our 
other games: 



FOR YOUR APPLE®: 

D Computer Bismarck: $59.95. 

D Computer Ambusii (a tactical sim- 
ulation of man-to-man combat in 
WWII): $59.95. 

D Computer Napoleonics, the Bat- 
tle of Waterloo: $59.95. 



D Computer Quarterback (a real- 
time strategy foottiall game): $39.95. 

D Computer Conflict (two modern- 
day tactical warfare simulations 
featuring REBEL FORCE and RED 
ATTACK!): $39.95 

a ComputerAir Combat (a simula- 
tion of air combat in WWII): $59.95. 

FOR YOUR TRS-80®: 
D Computer Bismarck, 48K Disc 
$59.95. 32K Cassette: $49.95. 



Apple is a registered trademark of Apple Computer Inc. 



TRS-80 is a registered trademark of Tandy Corporation 
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continued from page 89 

will give you a short description of 
your surroundings (e.g. "You are by 
a stream," "You are in a boulder 
field"). Unless the description men- 
tions vegetation, you can assume that 
you are in an open deciduous forest. 
If you are on a hillside, the computer 
will give you a rough idea of the 
direction of the slope (e.g. "You are 
on a slope — N is uphill"). This 
direction is meant only to be a 
general description of the slope. If 
north is described as uphill, it is 
possible that northeast is actually 
straight uphill and north is uphill at 
an angle. The description is never 
wrong, but may not be precise. 

If you are within sight of an attack 
feature when you stop to look 
around, the computer will give you 
the coordinates of your location. 
This is done only within sight of 
features that are distinct enough to 
allow you to orient your exact loca- 
tion. Such features include buildings, 
isolated distinct boulders, high 
points, stream crossings on trails, 
and others. 

At the same time that the computer 
describes your location, it will ask 
you if you want to continue on the 
course just set. Pressing "Y" will 
cause the computer to move you 
another 25 meters on your bearing 
(altered by navigational error) at the 
speed you last selected. Pressing "N" 
will allow you to change direction 
and speed. 

It is possible to exercise almost all 
orienteering techniques while "run- 
ning" at Jacque's Coulee. Attack 
points, collecting features, roads, 
corridor features, rough compass. 



and aiming off all can be used in the 
same way as in real orienteering 
events. Following a linear feature 
(such as a road or stream) to avoid 
any directional error is possible by 
simply reaching such a feature and 
then entering a direction of travel 
equal to the direction in which the 
feature runs. It is important that this 
be accurate within a degree or two, or 
else the computer will assume that 
you want to angle away rather than 
follow along it. In this case you 
would get a navigational error as 
usual. The simulation does not allow 
any way to use contouring as a 
navigational technique. 

When you come within sight of a 
marker, the computer will tell you 
that you can see it. It will also ask if 
you want to go to the marker. If you 
do, then press "6". This will move 
you to the marker and allow you to 
see its control code. Be sure to check 
it against the code of the marker you 
are looking for, since there are 24 
markers in Jacque's Coulee and some 
are near each other. If you want to 
punch in, type "Y" in response to the 
computer's question, and it will 
register the marker on your control 
card. If you don't punch in, no 
record is kept of your having reached 
the marker. 

The computer constantly updates 

and displays the time it has taken to 
travel along your route. The time is 
determined both by your speed and 
by the terrain; you can go one- third 
faster on a gravel road than through 
flat woods. The time that it takes you 
to consider your route and respond to 
the computer's prompts is not ac- 




cumulated — only the simulated run 
time is counted. 

As you run at Jacque's Coulee you 
gradually get more and more tired, 
just as you would in a real competi- 
tion. The more tired you get, the 
harder it is for you to concentrate, 
and therefore the more navigation er- 
rors you make. For every "fatigue er- 
ror point" you accumulate, the max- 
imum possible error you could have 
at any given speed increases by one 
degree. Running at "very slow" 
speed adds fatigue points slowly — 
only one point in nearly two hours. 
By contrast, running only five 
minutes at "very fast" speed will add 
the same fatigue unit. The computer 
displays your current fatigue error 
points throughout the simulation. 

If you become hopelessly 
disoriented, you can either abandon 
the course by entering a bearing of 
999, or pray. For the latter option, 
type "PRAY" in response to the 
computer's question about whether 
you want to continue as you have 
been. 

USES OF THE SIMULATION 

1 . As a Teaching Aid. Any subject 
is learned more thoroughly when 
students discover techniques on their 
own rather than simply being taught 
abstract rules. In addition, the 
simulation can be used to illustrate 
both how and why various orienteer- 
ing techniques are used. 

2. Point-to-Point Competition. 
Any number of point-to-point 
courses may be set using the 24 
markers in the area. 

3. Score Competition. You can set 
a start location and then assign ap- 
propriate score points to all or some 
of the available markers. Com- 
petitors are than allowed a given ac- 
cumulated time to put as many 
markers on their control card as they 
can. Penalty points are given to those 
who use more than the allotted time. 
It is suggested that the finish point be 
a specified marker so that it can be 
reached precisely at the end. 

4. Lost. An interesting game for 
two or more competitors can be 
played using the simulation. One 
player secretly enters a start location 
into the computer. Another player 
then takes over and tries to figure out 
where he is. He does this by deducing 
his general location from the descrip- 
tion of his surroundings given by the 
computer, and then navigating to a 
feature distinctive enough to allow 
him to orient his exact location. The 
person who is able to orient himself 

in the shortest time wins. 

continued on next page 
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continued from previous page 

VARIABLES: 

A: Slope of travel bearing. 
AD % : Distance traveled by runner 
since last change in speed or direc- 
tion. 

B: The point on the Y axis intersected 
by the travel bearing. 
BG: Runner's intended bearing. 
BY$; Used in describing runner's 
location. 

CARDS; String of control codes of 
markers at which runner has punched 
in. 

CCS: Control code of a marker. 
D: Distance traveled by runner since 
last time/fatigue update (usually 25 
m.) 

DB: Difference between travel bear- 
ing and straight uphill. 
DER: Actual directional error. 
DRS: Cardinal direction closest to 
straight uphill. 

F: Percent of top speed which defines 
the other four speeds. 
FER: Maximum fatigue-caused 
directional error. 

INC: X-distance between points 
which are 25 m. apart on the runner's 
travel bearing. 

MER: Maximum possible speed- 
caused directional error. 
MSP: The time (in seconds) needed 
to cover one meter of a given terrain 
at maximum speed. 
NS, OS: Used in describing runner's 
location. 
SP: Speed code of runner. 



SR: Flag indicating whether the run- 
ner is searching for a marker. (Used 
to avoid "seeing" a marker that the 
runner is leaving.) 
TB: Runner's travel bearing. 
TM, TS: Runner's accumulated time 
in minutes and seconds. 
X, Y: Runner's horizontal and ver- 
tical coordinates. 

XT, YT: Horizontal and vertical 
coordinates of point which is 1000 m. 
further along runner's bearing. 
ZONE: Flag indicating whether run- 
ner's current location will allow exact 
orientation. 

GLOSSARY 

AIMING OFF — An orienteering 
technique in which the bearing 
followed is to one side of a direct 
bearing. This is done so that the 
direction in which to look for the 
goal is known. 

ATTACK POINT — A distinctive, 
easy-to-find feature near a goal 
which is used as the start of a final 
approach to the goal. 
BEARING — Also called azimuth, 
a direction of travel defined by the 
angle formed clockwise from 
magnetic north (ex., the bearing of 
east is 90°). 

CATCH FEATURE — A Hnear 
feature (ex., stream, path) that is 
perpendicular to your direction of 
travel and which can be used to in- 
dicate your general location, and 



especially to indicate when you've 
gone beyond your goal. 
CLUE SHEET — A list of short 
descriptions of the locations of 
orienteering markers and the identi- 
fying codes written on those 
markers. 

CONTROL CARD — The card 
which is punched with identifying 
codes at each orienteering marker to 
prove which markers were found. 
CONTROL CODE — A unique 
identifying code, either letters or a 
number, that is written on every 
orienteering marker and is used to 
confirm that the marker found is the 
marker sought. 

FIGHT — Thick brush of any sort 
that a person has to "fight" to get 
through. 

HAND RAIL — A linear feature 
(ex., stream, path) that parallels 
your direction of travel and which 
can be used to guide you to your 
goal. 

RE-ENTRANT — A small valley on 
a hillside, usually formed by an in- 
termittent stream. 

ROCK FACE — A small exposed 
rock bluff. 

SADDLE — The low point on a 
ridge, normally a low point between 
the summits of a hill with more than 
one summit. 

SPUR — A small ridge on a hillside, 
usually formed by two intermittent 
streams, one on each side of the 
spur. 



ORIENTEERING AT JACOJE'S COllEE - 
Iriitisliie proqran and variables. 



PROGRAM LISHNG 



10 CLS:F'RINTe210,"O RIENTEERIN G":PRINTe268,"A T J A 

CQUE'S COULE E":PRINTM03,"(A COMPUTER SIMULAnffl))": 

PRINTK??, "COPYRIGHT 198O":PRItfr0661,"MICHAa A. 0'KEEFE"tPRINTe 

9i8,"(PRESS ANY KEY)" 

20 IFI»IY»=""GOTO20 

90 CLEAR1005RANDOM!O$="YOU ARE ON A"!N$="YOU («£ IN A"!BY$="YOU 

ARE BY a":card$="":fer=o!tm=o:ts=o:zne=i 

110 CLS: PRINT CHR«(Z3) 

Input the start coordinateSf speed* and direction of travel. 

120 PRINT026Z,"HHAT ARE THE COOROHWTES" 

130 PRINT0338,"OF THE START?" 

150 PRINT TAE(IO); 

lAO INPUT X.Y 

170 IFX<0 OK. Y<fl HR X>600 OR Y>600 PRINT8912, "ENTER NEW START"!G 

OTO150 

190 CLSiPRINT CHR*(23) 

200 PRINTe261,"Ht¥^T IS THE BEARING YOU" ;PRINT§331, "INTEND TO TRA 

VEL" 

220 PRINT TAB(12):M)X=fl 

230 INPUT TE 

235 IF TB=999 GOTO8000 

210 IF TB<0 OR TB:>aiO PRINTe908, "ENTER NEH BEARING" !GOTO220 

250 CLS:PRINT CHR$(23) 

260 PRINTe 131. "YOU MAY RUN THIS BEARING" :PRINTei96," AT m ONE 



OF THESE speeds;" 

280 PRIMTe338,"l) VERY SLOW" 

285 PRINTMflZ,"2) a.OH" 

290 PRINTei(W,"3) NORMAL" 

300 PRINT8530,"t) FAST" 

305 PRINTe591,"5) VERY FAST" :PRINT8718, "ENTER THE NUMBER" 

310 PRINT TAB(12) 

315 INPUT SP 

320 FINT(SP)OSP0RSP<10RSP>5PRINTe906,"ENTER NEH SPEED COOE":GO 

TO310 

330 CLS!PRINTCHR$<23):PRINTe396,"TAKING THE BEARING" 

Deternine if location and direction of travel protect runner 
froM receiving a navigational error. 

350 ff YV2.1XX+508 AND Y<-2xX+530 AND Y>336 AND ((TB>150 AND TB 

<158) OR {TB>330 AND TB<338) )GOT07flOfl 

360 ffY>-.78iX+551 AND Y<-.77iX+569 AM) Y>160 AND((TB>123 AM) TB 

<132)OR(TB>302 AND TB<310))GOTO7000 

370 FY>.8HX+346 AND Y<.99iX+339 AND Y<-1.2iX+807 AM) Y>180 AM) 

(m>V\ AND TB<52)OR(TB>220 AND TB<Z30))GOTO7000 

380 FY<.8XX+318 AND Y>.81iX+329 AND Y>-X+63fl AND Y<-X+770 AND ( 

(TB>15 AM) TB<53) OR (TB>Z25 AND TB<233) )GOT07000 

390 F Y>.'HiX+377 AND Y<.'»iX+100 AND Y>-1 .67IX+763 AND Y<-2iX+9 

70 AND <(TB>6Z AND Te<72)C«<TB>2« AND TB<252))GOTO7000 

100 F Y<1.21iX+35 AND Y>1.25»X-5 AM) Y>. 167+323 AND ((TB>31 AND 

TB<11) OR <TB>216 AND TB<221) )GOTO7000 

110 IF Y<.2iX+320 AND Y>.2iX+301 AND ((TB>75 AM) TB<83) OR (TB>2 

55 AND T6<263))GOTO700D 

120 F Y<3.5iX-65 AND Y>1iX-178 AND Y>372 W© Y<132 AND ((TB>12 
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AND TB<20) OR (TB>192 WO TB<20fl))GOT07flOO 

^0 IFY>.'HiX+182 Wa Y<.15«X+195 AND X<370 AND X>210 AND ((TB>6 

1 AND TB<69)0R(TB>211 AND TB<219))GOTO700fl 

^50 FY>1 .33xXH83ANDY<l .3xX-112ANDY>-.8«X+620AND( (TB>34ANDTB<12 

)0R(TB>211AM)TB<222) )GOTO7000 

160 F YV.02XX+160 AND Y<-.02iX+170 AND X>260 AND X<122 AND((T 

B>B6 AM) TB<91) OR (TB>266 AND TB<271))GOTO7000 

170 F Y<.2iX+18 AND Y>.23xX+28 AND X>16 AND X<320 AND ((TB>7'J A 

ND TB<83) OR m>255 AND TB<263))GOTO7000 

ISO FY>,71iX+172 AND Y<.72iX+190 AND X<70 AfO ((16^19 AM) TB<57 

) OR (TB>229 AND TB<237))GOTO7000 

185 FY>335ANDY<K1AM)X>528W«)X<511GOTO7000 

Assign navigational error. 

500 ONSPGOTO505,510,515,520,525 

505 MER=3:GOT0550 

510 HER=6:GOT0550 

515 MER=15:GOTOBO 

520 MER=25:GOT0550 

525(0=35 

550 MER=«ER+fER 

560 HER=«ERi.8:DER=RND(HER)-RND(MER)+RND(fER)-RM)(HER)!DER=INT(D 

ER+.5) ;TB=TB+OER;FTB<0TB=TB+360aSEFTB>360TB=TB-360 

650 FTB<1ORTB>371V€RT=lELSEFTB>176AM)TB<18WERT=-lELSE660 

655 Y=Y+VERTi6.562:GOTO850 

660 VERT=0 

Move rumer to new coordinates. 

670 QD=INT(TB/90)+l!Kl=.01715329'.K2=262.18tON QOGOTO680,690,700, 

710 

680 TX=X+SIN(TBiKl))iK25TY=Y+COS(TBiKl)iK2;GOTO720 

690 TX=X+C[B((TB-90)iKl))iK2:n=Y-SIN((TB-90)xKl)iK2:GOTO720 

700 TX=X-SIN((TB-180)iKl)iK2!TY=Y-COS((TB-180)iKl)iK2}GOTG720 

710 TX=X-COS((TB-270)i(Kl)iK2!TY=Y+SIN((TB-270)iKl)iK2 

720 a=(y-ty)/(x-tx)!b=y-axx!inc=(tx-x)/10 
800 x=x+inc:y=aix+b 

Check to see if runner is still on the nap? if not. end the run. 

850 0=25:ADZ=^Z+D 

860 FX>0ANDX<600AW)Y>0AM)Y<600GOTO1110 

960 CLS!PRINTCHR«(23):PRINTK60,"YOU tW^ RUN OF THE fMP":PRINT 

K22,"AND BEEN EATEN BY MONSTERS! ":PRINTe812, "PRESS C TO CONTINU 

E" 

970 FINKEY$="C"T^EN8000ELSE97fl 

DeterHine which square inch the runner is in. 

IHO aS!PRINTCHR«(23)JX5:=X/lflO:X5:=XZ+i:YZ=Y/10fl!Y):=Y5:+i:FINKEY 

♦="R"printmi8,x;y;tb;msp 

1150 ONXZGOT01160. 1170, 1180, 1190. 1200, 1210 

1160 (M»MTO2000,2100,2200,2300,2'»00,250fl 

1170 ONYa»TO2600,2700, 2800,2900,3000,3100 

1180 ONYZGOTO3200, 3300, 3100 ,3500,3600,3700 

1190 ONY2GOT03800, 3900, 1000, 1100, 1200 ,1300 

1200 ONYZGOTO1100,1500,1600,1700,1800,190D 

1210 ONYZGOTO5D0D,5100,520D,S300,5100,55D0 

Detemine the zone that the runner is in, set the defining 

characteristics, and go to the appropriate prograH line. 

2t»00 OR$="H":FY<72M)Y>30ANDX>1»«DX<26GOSI)B10500:GOT06200 

2010 FY>90AM)X>90MX=95:MY=95:CC*="BT"JGOSliB10500!GOTO6000 

2020 FY<-.5«X+105AM)Y>-.5xX+90ANDY<2.75iX-128GOSUB11100:GOTO620 



2030 GOSUB11300:GOT06200 

2100 fx>55am)x<70am)y>135andy<17flmx=655my=162jcc«="bj"!gosub105 
oo:goto60oo 



2110 FY>.71iX+172/«DY<.72iX+190GOSUB10700!GOTO6200 

2120 IFX>80AM)Y<108GOSUB11150:GOT06200 

2130 FY<-2iX+190ANDY>133THENDR»="SE":GOSUB11100!GOTO6200 

2135 FX>50ANDX<61ANDY>115AM)Y<136GOSUB11250!GOT06200 

2110 FX>80ANDY<110ANDY>130THEM)R$="H":GOSl)eill00:GOTO6200 

2150 IFY<3.3»X-13THENOR»="H"5GOSUB11300:GOT06200 

2160 DR*="SE":GOSUB113D0tGOTO6200 

2200 IFY<1 .2iX+158ANDY>l ,7iX+60ANDr/-.7iX+281ANDY<-.7iX+312MX=99 

!MY=233:CC$="BK":MSP=.i:GOSUB10500:FX>90tGOTO6000ELSEGOTO6200 

2210 IFX>70ANDX<82ANDr<292ANDY>278GOSllB10500:GOTO6200 

2215 FX>15ANDX<55ANDY<259AM)Y>218MX=50:MY=25i;CC$="EB":GOSUBlfl5 

oo:goto6ooo 

2220 FY>.71xX+172AM)Y<.72iX+190ANDX<75GOStB10700:GOTO6200 

2230 FY<1.7xX+90GOSU611250:GOTO6200 

2210 DR*="SE"!GOa«11300:GOTO6200 

2300 FY<390ANDY>372AHDX<90AM)X>75GOSUB10500JMX=82:MY=381JCC$="E 

d":goto60oo 

2310 FX>85ANDY>326AM)Y<339'.MX=91:MY=332:CC*="DA";GOSIJB10500:GOT 

O6000 

2320 FX>20AM)X<55ANDY<.5«X+319ANDY>.7iX+321GOSUei0600:GOTO6200 

2330 FX>69ANDX<83tfI)Y<315ANDY>302GOSl)B11200;GOTO6200 

2310 FY<.2xX+320ANDY>.2xX+301GOSUB11500:GOTO6200 

2350 FY>-2.1iX+508AM)Y<-2xX+518GOSUB1065fl!GOTO6200 

2360 FY>=.2xX+320THENDRt="N"!GOSUB11300!GOTO6200 

2370 DR*="S":GOSUB11100tGOTO6200 

2100 FX>16AM)X<51AM)Y<129AM)Y>115GOSUB11200!GOTO6200 

2110 FY>-2.1iX+508AM)Y<-2iX+530GOSUB10650!GOTO6200 

2120 FY<=-2.1iX+508THENDR«="W"!GOSIJB11300:GOTO6200 

2130 FY>-.78iX+551ANDY<-.77iX+569GOSUeil650:GOTO6200 

2110 FY>=-.77xX+569THENDR»="SH":G(KUB11300tGOTO6200 

2150 DR$="NE":GOaJB11300:GOTO6200 

2500 IFY>-.78xX+551ANDY<-.77iX+569GOSlieil650;GOTO6200 

2510 FY<=-.78«X+551THENDR«="NE"!GOSI)B11300:GOT06200 

2520 DR$="S«"{GOSlJeil3flfl:GOTO6200 

2600 FX>130AM)X<110ANDY>88GOSUB10500:GOT06200 

2610 IFX>139ANDX<118ANDY>65AM)Y<75GOSUB10500:GOT06200 

2620 FY<.2iX+18AM)Y>.23xX+28ANDX>116FX>187GOSUBlfl5flO;GOT062flO! 

ELSEGOSIJB11500:GOT06200 

2630 FY>-8xX+1110ANDY<-3«X+610GOSUB10800:GOTO6200 

2610 DR«="M":GOSUB113DO:GOT06200 

2700 l«i="H":iFX>170AM)Y<180ANDY>105ANDY<115GOSllB1050fl5GOT06200 

2710 FX>121ANDX<151AM)Y>13flANDY<163GOSUB10600;GOTO62fl0 

2730 F<Y>125ANDY<135AM)X>195)OR(Y>115ANDY<2.3iX-307)GOSUB11200: 

GOTO6200 

2710 F(X>163AM)X<190AM)Y<160)OR(Y>160W«)Y<l.liX-17>GOSUB10800!G 

OTG6200 

2750 FY>125ANDY<115AM)X<128GOSUeill00:GOTO620fl 

2760 GOSUB11300:GOT06200 

2800 IFX>152ANDX<18flANDY>238ANDY<260GOSUB10500 !GOTO6200 

2810 FX<122/*»X>111ANDY<285ANDY:>273GOSUei0500!GOT06200 

2820 FY>-1.6xX+506ANDY<-1.3iX+171AM)Y<238T}CNDW='W';GOSUeillO 

0:GOT06200 

2830 FY<-.8iX+31»«DX<150GOSUeil250{GOTO6200 

2810 FY>260W«)Y>l,3xX+55THENDR$="S":GOSlJeil300!GOTO6200 

2850 FY>-1.7iX+520THENDR»="H":GOSUeil3flO:GOT06200 

2860 FY>210THENDR»="E"!GOSUB11300:GOT0620(1 

2870 DR»="N"!GOSUeil300;GOTO6200 

2900 FY<.17iX+352ANDY>.17iX+332ANDX>110GOSUB11600:GOTO6200 

2910 IFY<3.5xX-65WOY>1«X-178M)Y>372THENDR*="N":GOSUeillOO:GOTO 

6200 

2920 FY<,liX+312ANDY>.llxX+296AND((X>135AM)X<150)OR<X>156^X<l 

75))«X=165'.MY=32i:(Xi="EC"!ZfE=2:GOSUB11200:FX>155GOTO6000aSE6 

200 

2930 IFY<.15xX+303ANDY>.19iX+281THEM)R«="S";GOSUB11100!GOTO62fl0 

2910 IFY>=.2iX+320THENDR«="N":GOSUB11300!GOTO6200 

2950 FY<=.2xX+301THEM)R*="S":GOSl)eil30fl:GOTO6200 

2960 GOSUB11500:GOT06200 

3000 IFX>130AM)X<11flAM)Y>150ANDY<159GOSUB10500*.GOTO6200 

30fl5FY>-.78xX+551ANDY<-.77xX+569ANDX<13flGOSUB11650:GOTO6200 

continued on next page 
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3010 IFY<137ANDY>125ANDX<155ANDX>1'»OHX=152!MY=133!CC$="BL"!GOSUB 

i0SD0*.GOTO6000 

3020 FY>.8'»xX+31«ANDY<.99iX+339ANDY>180THENDR$="SH":GOaB11100: 

GOTO6200 

3030 IFY<.8iX+318««)Y>.81iX+328AH)Y>-X+630GOSl)Bll«0JGOTO6200 

3010 IFy>.WX+377AJ€)Y<.1iX-HflOANDY>-l.&7iX+763THENDR$="SH"JGOSU 

Biiioo:Gom2oo 

3050 IFY<3,5iX-65AW)Y>1iX-178ANDY<132THENDRi="N"!GOSUeill00JGOT0 

6200 

3060 IFY<-X+6'»3ANDY>-X+610ANDY<481AM)Y>156GOSUB10600;GOTO62fl0 

3070 IFY>-.67«X+M0THENDR$="SH"!GOSlieil300;GOTO6200 

3080 DR$="N":GOSIJB11300:GOT06200 

31 DR»="a<" : IFY< , 6iX+6'MAM)Y> . 67IX-HM3G0SUB1 090 O t GOTO6200 

3110 IFY>51flANDY<52flANDX>115ANDX<12W(=119tMY=51i:CC»="BM"5G0aJB 

10500 '.GOTO6000 

3120 FY>.8'»iX+316AHDY<.99iX+339MX=187:MY=51i:CC»="EF"jat=2:G0S 

IJB11100!IFX>180ANDX<190GOTO60fl0ELSE62fl0 

3130 GOSlieil3O0:GOTO6200 

3200 IFY<.2iX-H8M)Y>.23«X+28GOSlJB11500:GOTO6200 

3210 FY<-2«X+510«J)Y>-2iX+150T»CNDR»="M":GOSl)B113fl0:GOTO620fl 

3220 GOSUB108O0:COTO6200 

3300 FY>-.02iX+160AM)Y<-.02iX+17flANDX>260GOSUBllfl50{GOTO6200 

3305 IFX>252ANDX<261ANDY<165ANDY>151GOSUB10500 !GOT06200 

3310 IFX>285ANDY>175ANDY<189HX=290:HY=182:CX:»="BH":GOSUBlfl500SGO 

TO6000 

3320 IFY<,2«X-HBGOSllB11500JGOTO6200 

3330 F(Y<1.5xX-150ANDY>1.75iX-222)OR(Y<13»W)Y>123ANDX<2fl5)GOSU 

B11200:GOT06200 

3310 GOSUB10800iGOTO620a 

3100 FX>210AM)X<226ANDY>220ANDY<232GOSUB10500:GOT06200 

3110 FY>.11iX+182ANDY<,15iX+195ANDX>210GOSl)eill50tGOTO6200 

3120 FX>230flM)X<210ANDY>266««)Y<279GOSUB10500JGOTO6200 

3130 FX>235MOX<260AM)Y>262GOSIIB10800:GOT062DO 

3110 DR$="M":GOSUB11300!GOT06200 

3500 FY<.1iX+296ANDY>.15xX+338ANDX>210GOaJB11600:GOTO6200 

3510 FX>286ANDY<389AW)Y>361MX=29i:MY=371!CC$="BC";GOSUB1050fl:GO 
TO6000 

3520 FX>229AM)X<216AM)Y<322M)Y>311GOSUei0500:GOTO6200 

3530 FY<1 .21iX+35ANDY>l .25iX-5W»Y>370GOSUBl 1650 !GOT062flO 

3510 IFY>.11iX+182ANDY<.15iX+195GOSUeill50;GOT06200 

3550 IFY>=.2«X+320ORY<=,11iX+182THENDR$="N":GOSUB11300!GOTO6Z30 

3560 FY<=.2iX+301THENDR»="S" :GOSUB11300 :GOT062flO 

3570 GOSUB11500tGOTO6200 

3600 FY>.81xX+328GOSI)B11150;GOTO6200 

3610 FX>260W«)X<293ANDY>113ANDY<111GOSUB10600 ;GOT06200 

3620 DR*="SH":FY>.11iX+377ANOY<.1xX+100ANDY<-2xX+970FX>230HX=2 

36tHY=187;CCt="AE":ZNE=2:GOSl«11100!GOTO6000!ELSEFX<211MX=205:H 

Y=175:CC»="HI"!ZNE=2!GOSUB11100:GOTO6000!aSEGOSlJB11100!GOTO6200 

3630 FX>260GOStJB10800:GOTO6200 

3610 DRi="W":GOSllB11300:GOTO6200 

3700 DR«="SH":iFX>215ANDX<225AM)Y>569ANDY<580GOaJB10500!GOTO62fl0 

3710 IFY>.8lxX+316<««)Y<,99«X+339W«)Y<-1.2iX+807GOajeill00!GOTO62 

00 

3720 FY< .8iX+31BANDY> .81iX+328ANDY<-X+77flGOSUB11150 !GOT06200 

3730 FY<-1.8xX+918GOSUB1130fl;GOTO6200 

3710 GOSUB108fl0;GOTO62fl0 

3800 FY>.23XX+28GOSUB11500!GOT06200 

3810 GOSUB10800:GOT06200 

3900 FY>- . 02«X+160/IM)Y<-. 02xX+170GOSl)Bllfl50 ; GOTO6200 

3910 IFX>321W»X<331AW)Y<121A»«)r.>lllGOSUB11000:GOTO6200 

3920 IFX>310ANDX<310AM)Y>101ANDY<131GOStJB10500:GOTO6200 

3930 FX<3Z0ANDY<.2xX+18ANDY>.23«X+28GOSlJB11500!GOTO6200 

3910 G08U610800!GOTO6200 

1000 FY<290ANDY>27flAM)X>320ANOX<350GOSUB11800:GOTO6200 

1010 FX<380ANDX>365ANDY>27«M)Y<290MX=369:MY=28i:CC«="AA"!GOSUe 

10500 :GOT06000 

1020 FY<3.5xX-915ANDY>.7iXANDY>-.9xX+597GOSUB11350:GOTO620fl 

1030 FY>1.5xX-170THENDR»="NM":GOSUB11300;GOTO6200 

1010 GOSUB10800:GOT06200 



1100 IFX>31SM()X<325ANDY<311ANDY>330GOSUB10500:GOT0620I 

1110 FY<1.21iX+35ANDY>1.25xXGOSUB11750!GOTO62fl0 

1120 IFY>.11iX+182AM)Y<.15xX+195W«)X<370GOSUB11150JGOTO62flfl 

1130 FY>.3xX+285GOaeil600:GOTO6200 

1110 IFY>=.2iX+320TlOBR«="N";G0SlJeil300:G0T0620fl 

1150 FY>.2xX+301GOaJB11500IGOTO6Z00 

1160 IFY>=.15xX+196THEM)R»="S";GOSUB11300;GOTO620fl 

1170 FY>X-20THEW)M="N":GOSUB11300{GOT06200 

1180 FY<1.2iX-125GOSlJeil350:GOT06200 

1190 GOSUB10800:GOT06200 

1200 IFX>370ANDX<383ANDY>132AM)Y<118GOSlJBi050D:GOTO6200 

1210 FY>190AM)X>380GOSUB10500:GOT06200 

1220 FY<1.21iX+3»W)Y>1.25iX-5FY>16flGOSUB10700:GOTG620fl:asaF 

Y>150HX=356JhY=155JCC*="EE"':ZNE=2!GOSUB1165fl:GOTO600fl:ELSEFY>11 

6GOSIJB11650:GOT06200:ELSEGOSIJB11750:GOT06200 

1230 FX<351ANDY<,18xX+358GOSUB11600;GOTO62fl0 

1210 6OSUei0800:GOTO6200 

1300 FY<510WOX>379CC$="B8":HX=38i:MY=5fl6:GOSllBlfl500{FY>582GOT 

O6000aSE6200 

1310 FY<1.21iX+35flM)Y>1.25iX-5GOaJBlfl7eO{GOT062flO 

1320 FX>322ANDX<328ANDY>876-XANDY<559GOSUB11000SGOTO6200 

1330 FX>310«OX<310ANDY>510MOY<57flMX=3255HY=560JCC$="«"!GOSUB 

10500:GOT06000 ; 

1310 FY>538GOSUei0900:GOTO6200 

1350 6OSUei0800:GOTO62D0 

HOO FX>180AM)X<190ANDY>25M«>Y<39GOSliei050D:GOTO6200 

mo GOSUB10950:GOT0620G 

1500 FY>115AM)Y<160AMDX>105MI)X<12SGOSUB10500:GOT06200 

1510 IFY>-.02«X+160ANDY<-.02iX+17fl<M)X<120GOSllB11050:GOTO6200 

1520 FY<X-100ANDY<170ANDX>120GOSlB10850!GOTO6200 

1530 GOSliei0800:GOTO6200 

1600 FY<2.2xX-680ANDY>2.5iX-815WOY>252ANDY<277GOSlJB10500!MX=13 

Z;MY=255:CC»="BF"!FY<260GOTO6fl00ELSE6200 

1610 FY>223AM)Y<218MIDX>110AW)X<111GOSllB11800:GOTO6200 

1620 GOStjei0800:GOTO6200 

1700 FX<127ANDX>118tfOY>365AM)Y<379MX=122!MY=368:CC$="B0" SGOSUB 

10500:GOT060DO 

1710 FY<.2«X+320WI)Y>.2iX+306GOSUB11500:GOTO6200 

1720 FX>112AM)X<123ANDY>330ANDY<312THEHDR$="NH" tGOSUBlllOO JGOTO 

6200 

1725 FY>1.1iX-270WOY<.78iX+30ANDY<-X+822GOSUB11350JG0T06200 

1730 FY>.25xX+265THENDI»="S"!GOSUB113fl0JGOTG6200 

1710 IFX>180ANOY>320THENDW="H";GOaJB11300:GOTO6200 

1750 GOSUB10800:GOT0620D 

1800 FY<.2xX+320ANDY>.2xX+30i:FX>150GOaJB11550JMX=150:MY=105:C 

C$="EG":M=2:FX<160GOTO6000ELSE6200tELSEGOaJB11500:GOTO6200 

1810 FX>150ANDY<111GOSl)B10950!GOTO6200 

1820 GOSUB10800;GOT06200 

1900 FY<l.ZliX+35ANDY>1.25«X-5FY>531GOSUB10750JGOTO6200:aSEGO 

SUB10700:GOT06200 

1910 FY>531AMDY<565ANDX>150AM)X<185GOSUBlG5fl0JGOTO6200 

1920 FY>531GOSUB10900:GOT06200 

1930 GOSIE10800:GOT06200 

5000 IFX>198ANDX<512ANDY>72ANDY<83MX=505:MY=8fl :CCi="JR" tGOSUBlOS 

oo:goto60oo 

5010 GOStJB10950:GOTO6200 

5100 GOSUB1D800:GOT06200 

5200 IFX>510W«)X<522ANDY>211AM)Y<222GOSUB10500{GOTO6200 

5220 FX>559(iM)X<575«OY>280WOY<295«X=565:HY=287:CC«="EH":GOSlB 

10500;GOT06000 

5225 FY>1 .33iX-180ANDY<l .3xX-111ANDY>- ,8XX+635GOSUB10700 JG0T062 

00 

5230 GOSUeiD800:GOTO6200 

5300 FY>1.33iX-183(WDY<1.3«X-112GOSUB10700!GOTO6200 

5320 FX>531AW)X<510ANDY>338ANDY<351GOa]B11000:GOTO6200 

5330 IFX>523AM)X<550ANDY>330ANDY<358«X=530 !MY=352:CC$="AC" JGOSUB 

10500 :FY>315GOT06flOflELSE6200 

5335 FY>-3.2iX+2016^M)Y>.3«X+185GOSIB10850:GOTO6200 

5310 GOSUB10800:GOT06200 
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MOO FY<.2iX+320AM)Y>.2iX+3MIFX<551GOSUBllK05GOTO6200:ELSEGOS 

ueii50o:coT062oo 

Mlfl IFY<150ANDX<550GOSUB10950:GOT06200 
5^20 GOSUei0800:GOTO6Z00 
5500 IFY>536GOStJB10900;GOTO420fl 
5510 GOSUB10800:GOT06200 

Input runner's reactions to ne« location and respond 
appropriately. 

6000 IFS«=0SR=-lJGOTO6200:aSESR=-i:PRWTe522,"Y0U SIGHT A fWRKE 
R!!":PK[NTe618,"G0 TO H OR NOT? (G/N)" 
6030 A»=INKEY»:iFA$="N"THENii200ELSEIFA«O"G"THE>W030 
6010 GOSUB10200:[)=SQR((X=«X)[2+(Y-«Y)[Z):X=«X:Y=MY;PRINTe390,"TH 
E CONTROL CODE IS ";CC»:PRINTM52,"D0 YOU WANT TO PUNCH IN?":PRI 
NTe536,"(Y/N)" 
6080 A$=IM<EY$ 

6090 ffAt="N"THEN610flELSEIFA$="Y"THENrS=TS+3:CARD$=O«D»+CC»:ELS 
E6080 

6100 GOSUB10200:IF7)C=1GOSUB10500ELSEGOSUB10000 
6130 IFLEN<C(«»»7PRIMTM18, "ENTER A TWWEL BE/«ING OF 999"{PRI 
MTKH.'IF THIS HAS YOUR LAST MARKER" 
6110 SR=0:GOT06510 

6200 SR=SR+i:ONSPGOTO6220,6230,6210,6250,6260 
6220 M=" ^Jm SLOH";GOT06265 
6230 A»=" SL0H":G0T06265 
6210 A*=" N0WW±Y";G0T06265 
6250 A*=" FAST":G0T06265 
6260 At=" \JER'i FAST" 
6265 BG=TB-OER:IFBG<OBG=360+BG 

6270 PRINTeSlI, "YOU'VE BEEN Rl*«aHG";A$:PRINTe586,"0N A BEARING 
0F";BG;PRINTe616,"AND HAVE G0NE"AD2J"METERS":PRINTe772,"C0NTINUE 
LIKE THIS? (Y/N)" 

6300 A*=IM<EY$:IFA$="N"TJCN6500ELSEIFA»="P"THEN8500ELSEFA»0"Y" 
T>£N6300 

6330 IFVtRTO0THENY=Y+VeTi6.562!G0T0850 
6310 GOTO800 
6500 GOSUB10200 
6510 PRINTe612,"TYPE AND ENTER A fCH BEARING" 5GOT0220 

No directional error assigned because rwirier is follouing a 
linear feature. 

7000 DER=0!GOTO650 

Print control card and end the run. 

8000 CLS'.PRINT8111,"COHTra]L":PRINTe209,"CARD"{PRINTe327,"FINAL"! 

TAB(20);TH}T(«(28);"MIN";TAB(18);"RUN":PRINre391,"TIME";TAe(20)J 

TS;TAB(28);"SEC";TAB(17);"AGAIN?";PRINTei96,"(Y)" 

8010 F0RR=flT03 

8020 F0RC=lTO10STEP2 

8030 N=R«lfl+C!H=516+128iR+3]iC:PRINTB1,MID»(CW«)»,N,2):iFINKEY$=" 

Y"THEN90ELSENEXTC:NEXTR 

8070 Fa«<=1T010:SET(8,N):SET(9,N);SET(70,N):SET(71,N):iFINKEY*=" 

Y"THEN90ELSEftXTN 

8080 FORN=22TO10!SET(21,N)JSET(22,N)JSET(33,N):SET(31,N);SET(15, 

N) :SET(16,N) :SET(57,N) :SET(58,N) tff INKEY$="Y"THEN90ELSENEXTN 

8090 F0RN=8T071!SET(N,1)!SET(N,13);S£T(N,22)JSET(N,28);SET(N,31) 

JSET(N,10 ) :iFINKEY»="Y"Tf€N90ELSOCXTN 

8120 IFINKEY$="Y"TtCN9flELSE8120 

Divine guidance fron Silvus. 

8500 FORI=lT03:in=lX»="R"ELSEIFI=2X»="A"aSEX»="Y" 

8510 A«=INKEY$JFA»=""THEN8510ELSEIFA»OX»THEN6300ELSENEXn 

8550 CLS!FORI=lTO100:(CXn:PRINTe325,"THERE IS A SUDDEN STILLNES 

S IN THE WORLD tfWUND YQU..,"tFORI=lTO650JNEXn:CLS 

8560 PRINTK79,''Y0U (CAR A V0ICE":PRINTe395,"n COMES FROM NOHHE 



RE, BUT IS EVERYHHERE.":PRINTe526,"'I AM SILVUS - GOO OF ORIENTE 
ERING'":FORI=lT0750JfCXn:PRINTK97,"'YOU «t AT";iNT(X+.5);iNT( 

Y+.5); :FORI=lTO2000!NEXn:CARD$=&«D$+"ii":GOTO19fl 

8570 FORI=lTO2000:NEXn:PRAY=PRAY+l!CARD»=CARD$+"ii":GOTOI90 

Subroutine to update accuHulated tine and fatigue error. 

10000 ONSPGOT010fllfl,lflfll5,lfl02fl, 10025,10030 

10010 F=1.8:GOT010050 

10015 F=1.5!GOT010050 

10020 F=1.29;GOT010050 

10025 F=1.13:GOT010050 

10030 F=1 

10050 TZ=fIMSPID!F=SP^SPITS:/7000JTS=TS+T3::M=IN^(TS/60)iTM=Th^M:T 

S=TS-60i«:FER=FER4f{FX=fER;PRINTeO,"ACCIliULATED TI}e":PRINTe36," 

FATIGUE ERR0R":PRINT861,TM!"MIN";TS;"SEC":F1t[NTeil2,F2 

10130 ZNE=l!RETlfl»l 

Subroutine to clear screen of all but first two lines. 

10200 F0RI=128T0896STEP61 

10210 PRINTei."":NEXTI 

10230 RETURN 

Series of one-line siAroutines to print description of runner's 

location. 

10500 PRINTe260,"YOU HAVE ORIENTED Y0URSELF":PRINTe328,"AT COORD 

INATES"!INT(X+.5) ;iNT<Y+.5) :GOSUB10000;RETURN 

10600 PRINTe271,N$;PRINTe3^, "BOULDER FIELO"!MSP=.55:GOTO100fl0:R 

ETURN 

10650 PRiNTe27i,BY$:PRiNTe3io,"DRY stream":«sp=.5:gosubioooo:ret 

URN 

10700 PRINTe271.O$5PRINTe310, "GRAVEL ROAD"'.MSP=.38:GOSUB10000:RE 

TURN 

10750 PRINTe271,0$JPRINTe326,"GRAVa ROAD IN A MEW)0H"JMSP=.38:G 

OSUBlOflOO {RETURN 

10800 PRINreZ71,O«tPRINTI3310,"LEVa AREA":MSP=.15:GOSUB1000fl!RET 

URN 

10850 PRINTe271.N»:PRINTe316,"W«SH":MSP=i:GOSUBlflOOO:RETURN 

10900 PRINTe271,N*:PRINT0311,"fCADOH"tMSP=.i;GOSUBlOOOO:RETURN 

10950 PRINTe271,N»:PRINTe310,"PDt hooos"!msp=.5:gosubioooo;retu 

RN 

11000 GOSUE!l0500!PRINTe388,"(I SURE HOPE YOU CAN aaM>"t»eP=i:RE 

TURN 

11050 PRINTeZ71,BY«:PRINTe310,"RAIL FEh«:E":MSP=.15:GOSUB10000'.RE 

TURN 

11100 PRINTe271,N${PRINTe328, "REENTRANT - "}DR»J" IS UPHILL":MSP 

=.S:GOSUB10000 {RETURN 

11150 PRINTe271,O*tPRINTe316,"RIDGE";MSP=.15!GOSUB10000;RETURN 

UZOO PRINTe271,BY»:PRINTe312,"R0CK FACE";M3>=.8!GOSUB10000:RETU 

RN 

11250 PRINTe271,N$!PRINTe311,"SADDLE"{MSP=.55:GOSUB10000*.RETURN 

11300 PRINTK71,O$!PRINTe330, "SLOPE - "JDR*!" IS UPHILL" 

11310 IFDR$="N"THENUB=0ELSEIFDR»="NE"THENU&=15ELSEIFDR*="E"THENU 

e=90aSEIFDR*="SE"THENUB=125ELSEIFDR*="S"THENUe=180ELSEIFDR*="SH 

"THENUB=225ELSEIFDR$="H"THENUB=270ELSEDe=315 

11320 De=AES(TB-UB>:iFOB>180THENDe=360-OB 

11330 FDe<90MSP=.55-DB/15x.05ELSEMSP=.15 

11310 GOSUBlOOOOiRETURN 

11350 PRINTe271,O»:PRINTe310, "SMALL HILL"*.MSP=.55!GOSUB10000JRET 

URN 

11100 PRINTe271,0«:PRINTe321, "STEEP SLOPE - ";DR$;" IS UWLL"{M 

SP=.8:GOSUB10000'.RETURN 

11150 PRINTe271,O»:PRINTe316,"SPUR":MSP=.15JGOSUB10000JRETURN 

11500 PRINTe271,BYiJPRINT8311,"STT«AM":MSP=.5:GOaJB10000!RETURN 

11550 PRINTe271,BY»:PRINT8328,"STRE^ IN A PINE H00DS"!MSP=.5!G0 

SUBlOOOOtRETURN 

11600 PRINTe271,N»!PRINTe331,"THICK BRUSH «EA":MSP=2,i:GOSUeiflO 

OOtRETURN 

11650 PRINTK71,O$:PRINTe316,"TRAIL":MSP=.i:GOSUB10000!RETURN 

11750 PRINTe271,O$:PRINTe330. "TRAIL IN THICK BRUSH":MSP=.1;G0SUB 

10000!RETURN 

11800 printe271,n»:printe321,"field of smaii depressions" !msp=.3 
:gosubioooo:return ^ 
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Let our 
fingers 
do the typing! 

With a SoftSide Disk or Cassette subscription 
you can get each month's TRS-80, APPLE, or 
ATARI programs delivered on disk or cassette 
with every issue of your SoftSide. No more hours 
of typing. No hunting for typing mistakes. The 
programs for your computer are tested and ready 
to go the day you receive them. 

If you already receive SoftSide magazine, you 
will receive credit for the remainder of your 
subscription toward your new cassette or disk 
subscription. 

SPECIAL: 

Magazine $18/year 
Magazine and Cassette $39/6 months 
Magazine and Cassette $75/year 
Magazine and Disk $64/6 months 
Magazine and Disk $125/year 

Make your SoftSide library complete with back 
issues of SoftSide: APPLE, SoftSide: S-80, and 
PROG/80. Programs, games, complete documentation 
and lots more! If you have missed out on any past 
issues, now is the time to order. 
SoftSide: S-80, and APPLE Back Issues 
(magazine only) $2.50 
PROG/80 Back Issues $4.00 
Magazine with Cassette programs $9.95 
Magazine with Disk programs $14.95 
New Super SoftSide Back issues 
(Magazine Only) 

August or September, 1980 $3.00 
October, 1980 to present $3.50 
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Unlock the hidden power 
of your computer for fast and 
easy programming! Use ROM 
routines in your BASIC 
and Assembly Language 
programs! All you need to 
know is in... 




ALL 

ONLY 

$19.95 



INCLUDES: 

SUPERMAP 

From Fuller Software ($18.95) 

TRS-80 

DISASSEMBLED 

HANDBOOK 

by Robert Richardson ($10.00) 

HEX MEM 

by John Phlllipp 
Monitor written in BASIC 

Z-80 
DISASSEMBLER 

by George Blank 



ORDER TOLL-FREE 

(in NH call 673-5144) 



1-800-258-1790 

IteSoMtare Exchange 



A SoftSide Publication 



Guide to Level II BASIC 
and DOS Source Code 

Description of the contents of the Level II BASIC ROM by 
memory locations, by function, and in lesson format. Includes 
several BASIC and Assembly Language programs in listing 
format to examine and use ROM routines. 



